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Abstract 

This  thesis  documents  the  design  and  implementation  of  a  DSCS  III  Single  Channel  Transpon¬ 
der  (SCT)  beacon  telemetry  display.  The  system  is  a  personal  computer  based  design  which  in¬ 
terfaces  to  three  SCT  beacon  receiver/demodulators.  The  software  was  designed  to  decode  and 
display  both  the  DSCS  III  A  and  DSCS  III  B  satellite  beacons.  Recordings  of  the  SCT  beacon 
display  can  be  made  on  paper  and/or  magnetic  media  when  triggered  by  the  user,  a  watchdog 
timer,  or  the  SCT  command  accept  telemetry  bit.  In  addition,  the  system  can  be  configured  with 
an  IRIG  B  Universal  Time  Coordinates  (UTC)  card  which  enables  the  software  to  determine  the 
difference  between  the  decoded  SCT  clock  time  and  the  local  IRIG  time  source.  Remoting  the  SCT 
configuration  display  is  also  possible  using  Hayes-compatible  modems  over  a  telephone  link. 


SATCOM  General  Purpose  Modem 
DSCS  III  SCT 
Beacon  Telemetry  Display 


I.  Introduction 


1.1  Background 

1.1.1  General  Purpose  Modem  The  Satellite  Communications  (SATCOM)  Group  in  the 
Avionics  Directorate  of  Wright  Laboratory  provides  satellite  communications  test  support  to  the 
Department  of  Defense.  As  part  of  a  continuing  effort  to  upgrade  support  capabilities,  the  Group 
procured  a  general  purpose  modem  (GPM)  from  ComQuest  Technologies.  This  modem  was  de¬ 
signed  to  operate  at  several  user-selected  data  rates  and  phase-shift-keyed  (PSK)  modulations.  It  is 
also  capable  of  being  remotely  controlled  by  a  separate  host  computer.  The  capabilities  of  interest 
were  the  800  bits-per-second  (BPS)  receive  only  binary  PSK  (BPSK)  mode,  and  the  remote  control 
function. 

The  800  BPS  receive  only  mode  was  specifically  installed  to  demodulate  the  Defense  Satellite 
Communications  System  (DSCS)  III  Super  High  Frequency  (SHF)  telemetry  beacon.  Included  in 
the  telemetry  data  is  the  configuration  of  the  Single  Channel  Transponder  (SCT)  which  is  a  package 
hosted  on  the  DSCS  III  satellite.  Additional  background  on  the  SCT  is  provided  below.  The  GPM 
was  designed  to  demodulate  the  beacon,  decode  the  SCT  configuration  telemetry,  and  present  the 
data  to  an  external  host.  The  host  is  responsible  for  interpreting  and  displaying  the  configuration 
data. 


1.1.2  DSCS  III  SCT  The  Single  Channel  Transponder  is  a  package  attached  to  the  host 
DSCS  III  satellite.  The  primary  mission  of  the  SCT  is  to  disseminate  Emergency  Action  Messages 
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(EAMs)  to  the  nuclear  capable  forces  [1],  The  DSCS  III  primary  communications  subsystem 
includes  eight  antennas  which  can  be  interfaced  in  different  ways  to  six  transponders  [2].  The  SCT 
can  be  configured  to  use  one  of  three  uplink  antennas;  an  earth  coverage  SHF,  a  multi-beam  SHF, 
or  an  earth  coverage  Ultra  High  Frequency  (UHF)  antenna.  On  the  downlink,  the  SCT  uses  an 
earth  coverage  UHF  antenna  on  the  DSCS  III  A  satellites.  DSCS  III  B  satellites  also  have  access  to 
the  channel  1  SHF  transponder.  In  addition  to  frequency  band  choices,  the  SCT  can  be  configured 
to  use  different  modulations  and  cryptographic  devices  [3],  These  various  configuration  selections 
make  the  SCT  quite  versatile.  However,  what  makes  it  truly  unique  is  the  configuration  changes  can 
be  implemented  by  a  user  terminal  operating  on  the  communications  channel  [4],  This  is  unusual 
because  most  satellite  configuration  changes  are  made  by  a  ground  controller  through  a  dedicated 
channel  called  the  Telemetry,  Tracking  and  Control  (TTirC)  channel. 

The  SCT  flexibility  comes  with  a  cost  of  increased  complexity,  which  can  cause  satellite 
access  problems.  For  example,  if  an  airborne  terminal  is  attempting  to  turn  on  the  SCT  downlink 
using  the  UHF  channel  while  the  SCT  is  configured  for  SHF,  the  attempt  will  fail.  To  avoid  this 
problem,  users  may  call  a  DSCS  Operations  Center  to  determine  the  SCT  configuration,  or  request 
a  configuration  change  to  the  desired  mode.  Obviously,  it  may  be  difficult  for  an  airborne  terminal 
to  make  a  phone  call.  To  solve  having  to  go  up  “blind”  (not  knowing  the  SCT  configuration),  some 
terminals  are  equipped  with  a  DSCS  III  SHF  telemetry  beacon  receiver  which  can  extract  the  SCT 
configuration  information  from  the  beacon.  Once  the  configuration  is  known,  the  terminal  can  be 
modified  to  properly  access  the  SCT. 

One  function  of  the  ComQuest  GPM  is  the  demodulation  and  decoding  of  the  DSCS  III 
beacon  telemetry.  The  SCT  configuration  information  consists  of  100  bits  embedded  in  the  beacon 
signal.  The  GPM  was  designed  to  present  the  bits  of  beacon  data  to  an  external  device.  The  major 
thrust  of  this  thesis  was  to  obtain  the  data  and  display  the  decoded  information  in  a  user-friendly 

manner. 
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The  using  terminal  must  not  only  match  the  SCT  configuration,  its  clock  must  also  be  syn¬ 
chronized  with  the  SCT  clock.  Included  in  the  SCT  telemetry  is  the  time  value  of  the  SCT  clock  [5]. 

Some  terminals  use  the  decoded  beacon  time  to  set  their  local  terminal  clock  to  quickly  access 
the  SCT.  Other  terminals  do  not  have  this  capability,  so  they  must  depend  on  the  accuracy  of  their 
local  time  standard  and  the  SCT  on-board  clock.  The  SCT  terminal  owned  by  the  SATCOM 
Group,  the  Command  Post  Modem/Processor  (CPM/P),  falls  into  the  latter  group  of  terminals.  It 
cannot  set  system  time  from  the  beacon  time  directly.  In  order  to  reduce  SCT  access  time  for  this 
terminal,  this  thesis  compared  the  decoded  beacon  time  with  the  local  time  standard  to  determine 
the  difference. 

1.2  Problem  Definition 

The  SATCOM  Group  of  Wright  Laboratory  procured  a  general  purpose  modem  which  de¬ 
modulates  and  decodes  the  DSCS  III  SCT  telemetry  data.  In  order  to  be  fully  utilized,  however, 
some  method  of  capturing  and  displaying  the  telemetry  data  was  required.  In  addition,  the  differ¬ 
ence  between  the  SCT  clock  and  Universal  Time  Coordinates  (UTC)  needed  to  be  deterir.  ned  to 
reduce  satellite  access  time. 

1.3  Approach 

A  literature  review  was  accomplished  to  determine  if  any  previously  published  work  existed 
describing  beacon  telemetry  displays.  The  research  was  expanded  to  include  literature  on  auto¬ 
mated  testing  to  gain  background  information  for  display  and  test  systems.  On  th-  ’iterature 
search  was  completed,  the  inf  -face  work  with  the  GPM  was  started. 

The  SCT  telemetry  display  entailed  interfacing  the  GPM  to  a  radio  frequency  (RF)  front  end, 
receiving  the  demodulated  and  decoded  data  from  the  modem,  and  displaying  the  data  in  a  user- 
friendly  form.  The  RF  front  .ad  consisted  of  a  SHF  antenna,  a  low  noise  amplifier  (LNA),  and  a 
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downconverter.  The  telemetry  display  platform  chosen  was  an  IBM  compatible  personal  computer 
(PC).  The  software  to  control  the  PC  was  developed  using  Borland’s  TURBO  C++  Professional 
software  development  system. 

In  addition  to  the  SCT  telemetry  display  of  the  GPM  data,  the  software  was  also  interfaced 
to  two  other  SATCOM  Group  assets  which  provide  SCT  telemetry  data.  These  assets  were  the 
Raytheon  Stand  Alone  Beacon  Receiver  (SABR)  and  the  AN/ASC-30  Small  EHF/SHF  terminal. 
Both  these  assets  required  additional  interface  software,  while  the  AN/ASC-30  terminal  required 
additional  hardware. 

1.4  Current  Literature 

The  intention  of  this  section  was  to  survey  the  topics  of  satellite  beacon  telemetry  displays  and 
automated  testing.  While  documentation  on  the  general  topics  of  satellite  beacons  and  automated 
testing  was  abundant,  information  about  the  specific  topics  of  this  thesis  was  sparse.  In  doing  the 
research,  however,  it  was  discovered  the  current  literature  provided  information  on  topics  similar  to 
the  ones  presented  in  this  report.  As  a  result,  this  chapter’s  emphasis  was  changed  to  surveying  the 
current  literature  on  comparable  approaches  to  solving  telemetry  data  displays  and  implementing 
an  automated  test  capability. 

I.4.I  DSCS  HI  SCT  The  only  source  found  which  discussed  SCT  displays  was  a  technical 
memorandum  by  Laux  of  Wright  Laboratory  [6],  The  report  described  a  Z-80  microprocessor- 
based  system  which  received  IEEE-488  bus  data  packets  provided  by  a  SCT  terminal  and  displayed 
the  information  using  a  custom  LED  display.  Laux  also  mentioned  a  follow-on  project  which 
would  bypass  the  SCT  terminal  and  input  the  100  bits  of  data  directly,  but  no  documentation 
was  available  on  this  project.  In  a  related  area,  Robinson  presented  a  method  by  which  the  Inter- 
Range  Instrumentation  Group  (IRIG)  time  code  standard  was  generated  using  bus-level  time  code 
translators  [7]  .  The  author  discussed  the  advantages  of  using  the  newer  bus  level  interfaces  rather 
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than  the  traditional  external  interfaces.  Two  examples  were  presented,  one  using  the  PC  AT/XT 
bus  which  was  the  bus  used  for  this  research. 

1.4.2  Automated  Testing  This  area  of  the  literature  survey  was  used  to  identify  if  a  personal 
computer  could  be  used  as  the  display  platform  for  the  beacon  display  software.  Several  articles 
describing  automated  testing  and  testing  using  a  personal  computer  were  discovered.  Lacy  discussed 
microwave  instrumentation  systems  enhanced  by  microprocessors  in  his  conference  presentation  [8], 
Of  special  interest  was  his  discussion  on  how  to  use  a  personal  computer  as  a  platform  for  automated 
measurements.  Specifically,  he  examined  what  factors  to  consider  when  configuring  a  PC  for  use  in 
test  and  measurement  applications,  as  well  as  what  tradeoffs  are  possible.  Chimene  also  discussed 
architectures,  but  did  not  limit  his  data  collection  platform  to  the  PC  [9].  He  presented  a  technique 
which  accepts  data  from  subsystems  at  various  clock  rates  and  times.  His  technique  separates  the 
data  collection  platform  from  the  telemetry  system  clock  rate.  Simms  and  Butterfield  presented 
a  telemetry  system  which  not  only  captures  data,  but  also  formats  and  organizes  it  for  future  use 
[10].  The  paper  discussed  the  PC  hardware  required  for  the  system.  A  related  paper  discussed 
software  developed  to  process  data  in  real-time  and  display  a  “quick  look  report”  for  display. 
Zimmerman  presented  a  paper  which  contained  structured  BASIC  software  tools,  utilities,  disc 
input/output,  and  integrated  measurement  [11].  The  tool  kit  provides  a  means  for  integrating 
routines  tor  automated  test  systems.  With  the  literature  review  completed,  work  was  started  on 
providing  a  SCT  beacon  display  for  the  GPM. 

1.5  Overview 

Chapter  II  is  an  functional  description  of  the  system.  It  describes  the  hardware  interfaces, 
cabling  requirements,  and  the  Turbo  C  programs.  Chapter  III  presents  an  operational  description 
of  the  software  developed  for  the  SCT  telemetry  display.  The  chapter  is  essentially  an  extended 
users  guide  which  walks  through  each  menu  selection  describing  what  functions  are  available  to 
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the  user.  Chapter  IV  provides  start-up  procedures  which  details  step-by-step  instructions  on  how 
to  bring  up  the  telemetry  display  system  and  configure  it  for  desired  operation.  Chapter  V  ends 
the  thesis  with  some  conclusions  and  recommendations.  Appendix  A  provides  a  list  of  acronyms 
while  Appendix  B  contains  the  source  code  listings  for  all  the  C  code  used  in  the  telemetry  display 
system. 
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II.  Functional  Description 


£.1  Introduction 

This  chapter  provides  a  functional  description  of  the  SCT  beacon  display  system.  The  chapter 
starts  with  a  background  section  on  the  DSCS  III  SHF  beacon,  then  follows  with  sections  detailing 
both  the  hardware  and  software  developed.  The  hardware  section  deals  with  the  interfaces  the 
software  expects  to  use.  The  software  discussion  describes  the  main  features  of  the  source  code  and 
what  functions  are  in  each  hie. 

£.£  DSCS  III  SHF  Beacon 

The  SCT  configuration  information  consists  of  100  bits.  The  bit  definitions  are  shown  in 
Tables  1,2,  3,  4,  and  5.  Table  1  define  the  clock  bits  for  both  A  and  B  model  SCTs.  Tables  2 
and  3  detail  the  rest  of  the  telemetry  bits  for  DSCS  III  A  satellites,  while  Tables  4  and  5  show  the 
definitions  for  DSCS  III  B  satellites. 

The  100  bits  are  embedded  in  a  800  bits-per-second  (BPS)  pseudo-random  noise  (PRN)  data 
stream.  The  PRN  stream  is  used  to  modulate  the  SHF  binary  phase  shift  Key  (BPSK)  beacon 
signal.  It  is  broken  up  into  8-bit  frames  with  each  frame  10  milliseconds  (ms)  long.  Table  6  shows 
how  the  frame  is  partitioned.  The  first  bit  is  always  a  logic  0  and  is  called  the  sync  bit.  This  allows 
the  demodulator/decoder  to  frame  synchronize  to  the  data  stream.  Bits  1  through  5  are  outputs 
of  feedback  shift-register  sequence  generators.  The  sequences  are  25,  27,  29,  31,  and  32  bits  long. 
Bit  6  is  a  modulo-2  (binary)  add  of  a  logic  1  with  bit  4  (31-bit  sequence).  Bit  7  is  a  modulo-2  add 
of  the  SCT  telemetry  bit  with  bit  2,  the  27-bit  sequence. 

The  SCT  telemetry  generator  block  diagram  is  shown  in  Figure  1  [3].  The  telemetry  infor¬ 
mation  is  updated  every  two  seconds.  It  is  then  shifted  out  at  50  BPS  into  a  j-rate  convolutional 
encoder.  The  encoder  adds  in  a  bit  for  every  beacon  data  bit,  thus  arriving  at  the  100  BPS  rate 
which  is  used  by  the  PRN  generator  in  generating  the  800  BPS  modulating  signal.  It  should  be 
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Table  1.  DSCS  III  Telemetry  Clock  Bit  Definitions 


Bit 

Definition 

Bit 

Definition 

Clock  Days  40 

28 

Clock  Milliseconds  800 

Clock  Days  20 

29 

Clock  Milliseconds  400 

Clock  Days  10 

30 

Clock  Milliseconds  200 

Clock  Days  08 

31 

Clock  Milliseconds  100 

5 

Clock  Days  04 

32 

Clock  Milliseconds  60 

6 

Clock  Days  02 

33 

Clock  Milliseconds  40 

7 

Clock  Days  01 

34 

Clock  Milliseconds  20 

8 

Clock  Hours  20 

35 

Clock  Milliseconds  10 

9 

Clock  Hours  10 

36 

Clock  Milliseconds  05 

10 

Clock  Hours  08 

37 

Clock  Microseconds  4000 

11 

Clock  Hours  04 

38 

Clock  Microseconds  2000 

12 

Clock  Hours  02 

39 

Clock  Microseconds  1000 

13 

Clock  Hours  01 

40 

Clock  Microseconds  500 

14 

Clock  Minutes  40 

41 

Clock  Microseconds  400 

15 

Clock  Minutes  20 

42 

Clock  Microseconds  200 

16 

Clock  Minutes  10 

43 

Clock  Microseconds  100 

17 

Clock  Minutes  08 

44 

Clock  Microseconds  50 

18 

Clock  Minutes  04 

45 

Clock  Microseconds  40 

19 

Clock  Minutes  02 

46 

Clock  Microseconds  20 

20 

Clock  Minutes  01 

47 

Clock  Microseconds  10 

21 

Clock  Seconds  40 

48 

Clock  Microseconds  05 

22 

Clock  Seconds  20 

23 

Clock  Seconds  10 

24 

Clock  Seconds  08 

25 

Clock  Seconds  04 

26 

Clock  Seconds  02 

27 

Clock  Seconds  01 

8 


Table  2.  DSCS  III  A  Telemetry  Bit  Definitions 


Bit 

Definition 

49 

Broadside  Command  Bit  18 

50 

Broadside  Command  Bit  19 

51 

Broadside  Command  Bit  20 

52 

Bit-Error- Rate  Enable(l)/Disable(0) 

53 

Command  Address  Enable(l)/Disable(0) 

54 

Uplink  Frequency  Enable(l)/Disable(0) 

55 

LSG  WOD  1  Enable(l)/Disable(0) 

56 

LSG  WOD  2  Enable(l)/Disable(0) 

57 

Uplink  Modulation  AFSATCOM  II(l)/AFSATCOM  1(0) 

58 

Downlink  Modulation  AFSATCOM  I(l)/AFSATCOM  11(0) 

59 

Uplink  Bandwidth  Narrow(l)/Wide(0) 

60 

Downlink  Bandwidth  Wide(l)/Narrow(0) 

61 

Uplink  Signal  Strength  Bit  0  (LSB) 

62 

Uplink  Signal  Strength  Bit  1 

63 

Uplink  Signal  Strength  Bit  2 

64 

Uplink  Signal  Strength  Bit  3  (MSB) 

65 

Decovered  Baseband  Bit  0  (LSB) 

66 

Decovered  Baseband  Bit  1 

67 

Decovered  Baseband  Bit  2  (MSB) 

68 

AFSATCOM  I  Baseband  Mark(l)/Space(0) 

69 

Receiver  Mode  Bit  0  (LSB)  :  00=SHF  Only/01=SHF  Only 

70 

Receiver  Mode  Bit  1  (MSB)  :  10=UHF  Only/1  l=Commutate 

71 

STG  Update  Enable(l)/Disable(0) 

72 

SHF  Antenna  Earth  Coverage(l)/MBA(0) 

73 

Command  Accepted  Accepted(l)/Reset(0) 

74 

AFSATCOM  II  Downlink  Hopping(l)/Fixed(0) 

9 


Table  4.  DSCS  III  B  Telemetry  Bit  Definitions 


11 
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_ ] 

Bit 

Name 

Sequence 

Sync 

Logical  0 

25  Bit 

1000010011111000110111010 

27  Bit 

100001001011001111100011010 

29  Bit 

10000100101100111110001101110 

31  Bit 

1000010010110011111000110111010 

5 

32  Bit 

10000010010110011111000110111010 

6 

Modulo-2  sum  of  logical  1  with  bit  4 

7 

Modulo-2  sum  of  beacon  data  with  bit  2 

noted  that  the  GPM  is  the  only  demodulator/decoder  which  takes  advantage  of  the  convolutional 
encoder  by  using  it  in  conjunction  with  a  Viterbi  decoder  to  improve  the  bit-error-rate  performance. 
The  other  two  receivers  just  ignore  the  extra  bit. 

In  addition  to  the  frame  synchronization,  the  data  stream  provides  a  means  to  message 
synchronize.  The  initial  message  synchronization  occurs  when  the  25-bit  and  32-bit  sequences  are 
both  a  logic  1  for  five  frames.  In  other  words,  a  decoder  must  monitor  both  sequences,  and  when 
they  have  reached  the  1111 1  state  for  the  past  five  frames,  message  synchronization  has  been  found. 
The  first  bit  of  the  SCT  telemetry  data  (bit  1)  is  present  when  the  message  synchronization  pulse 
occurs.  The  message  synchronization  pulse  is  present  every  eighth  repeat  of  the  11111  state  of  the 
25-bit  sequence.  Once  message  synchronization  has  occurred,  the  beacon  telemetry  information 
can  be  obtained  for  display. 


S.S  Hardware 

This  section  describes  the  PC  cards  which  were  used  to  enhance  system  capabilities  and 
defines  the  general  hardware  interface  requirements  for  the  beacon  display  system  software. 

S.S.l  PC  Cards  The  PC  standard  configuration  is  usually  one  RS-232  communications  port 
and  one  printer  port.  The  system  developed  for  this  thesis  added  an  additional  serial  RS-232  port 
(COM2),  a  parallel  data  input/output  (PIO)  card,  and  an  Inter-Range  Instrumentation  Group 
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(IRIG)  time  standard  card.  Table  7  show  the  interrupt  definitions,  port  addresses,  and  interrupt 
vectors  used  by  the  software. 


Table  7.  PC  Interface  Card  Summary 


Card 

IRQ 

I/O  Address 

Interrupt 

Vector 

Coml 

IRQ4 

0x3F8-3FF 

OxOC 

0x30-33 

Com2 

IRQ3 

0x2F8-2FF 

OxOB 

0x2C-2F 

PIO 

IRQ3 

0x2F8-2FF 

0x0  B 

0x2C-2F 

LPT1 

IRQ  7 

Ox370-37F 

OxOF 

0x3C-3F 

IRIG 

IRQ5 

0x320-32F 

OxOD 

0x34-37 

The  parallel  card  is  a  24-bit  parallel  input/output  device  developed  by  Industrial  Computer 
Source  [12].  The  card  plugs  into  a  PC-XT  slot  and  comes  with  an  external  37-pin  D  connector. 
The  input  levels  for  the  card  are  transistor-transistor-logic  (TTL)  levels  (0,+5V). 

The  IRIG  card  was  developed  by  Bancomm  Corporation  [13].  The  card  can  be  synchronized 
to  an  external  IRIG-B  source  and  provide  scheduled  interrupts  to  the  PC.  The  device  is  installed 
in  a  PC- AT  slot  and  is  interfaced  to  an  external  IRIG  standard  through  a  BNC  connector.  The 
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display  system  software  programs  the  card  to  synchronize  to  the  external  IRIG-B  time  code  source 
and  provide  a  1  pulse-per-second  (PPS)  on-time  interrupt  for  system  time. 


The  other  devices  used  by  the  system  are  the  COMl  and  COM2  RS-232  serial  ports  and 
the  parallel  LPT1  port  for  the  printer.  The  COMl  and  COM2  ports  sure  used  by  the  software  to 
interface  to  the  beacon  receivers.  Table  8  list  the  PC  port  usage  by  the  system. 


Table  8.  PC  Port  Summary 


Port 

GPM 

Raytheon 

ASC-30 

12221 

J6A  Beacon 

J3  Beacon/ Control 

Not  Used 

msSMM 

Jl  Control 

Not  Used 

Not  Used 

PIO 

Not  Used 

Not  Used 

Beacon 

LPT1 

Printer 

Printer 

Printer 

£.S.£  Beacon  Receiver  Interface 


£.S.£.l  GPM  The  hardware  interface  to  the  GPM  is  through  the  PC  RS-232  serial 
communications  ports.  For  the  GPM,  both  COMl  and  COM2  are  used.  Table  9  shows  the  interface 
settings  used.  COMl  is  used  to  read  in  the  beacon  data  from  the  GPM.  It  must  be  connected  to  the 
J6A  beacon  connector  on  the  back  of  the  GPM  through  a  ComQuest  provided  20-to-9  pin  adapter 
cable.  COM2  is  used  to  communicate  with  the  GPM  through  its  remote  host  port.  The  control 
capability  is  provided  by  the  system  software.  The  port  settings  shown  in  Table  9  are  the  factory 
remote-host  settings  for  the  GPM  [14].  The  remote-host  connector,  Jl,  is  also  located  at  the  back 
of  the  GPM. 


Tab 

e  9.  GPM  Interface  Settings 

Port 

Baud 

Data 

Parity 

Stop 

Coml 

9600 

7  Bit 

Odd 

0  Bits 

Com2 

1200 

7  Bit 

Odd 

0  Bits 

It  should  be  noted  that  the  remote  software  also  uses  COM2  when  remoting  the  display  to 
another  site.  Therefore,  when  the  GPM  is  used  as  the  beacon  receiver,  the  control  functions  are 
disabled  when  the  display  is  remoted  by  starting  the  remote  master  software. 
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S  3. £.2  Raytheon  The  interface  to  the  Raytheon  beacon  receiver  is  through  COM1 
only.  The  port  settings  are  shown  in  Table  10.  The  COM1  port  of  the  PC  must  be  cabled  to 
the  receiver  host  port,  connector  J 3 ,  on  the  back  of  the  system.  COM1  is  used  to  send  start  up 
and  control  data  to  the  receiver,  as  well  as  receiving  the  demodulated  and  decoded  data  from  the 
receiver. 


Table  10.  Rayt 

heon  Interface  Settings 

Port 

Baud 

Data 

Parity 

Stop 

Coml 

9600 

8  Bit 

None 

1  Bit 

2.S.2.3  ASC-30  The  ASC-30  interface  is  more  complicated  than  the  others.  The 
ASC-30  sends  a  synchronous  signal  at  800  BPS.  It  provides  demodulated  data  only,  not  demodulated 
and  decoded  data  as  the  other  receivers.  In  order  to  get  synchronous  data  into  the  PC,  the  DIO- 
24  PIO  card  was  used.  The  telemetry  display  system  software  configures  the  card  for  interrupt 
operation  and  data  input  mode.  The  pins  used  are  shown  in  Table  11.  Note  that  pins  1  and  20  are 
tied  together  to  enable  interrupts  [12]. 

The  DIO- 24  requires  TTL  voltage  levels  (0,  +5V).  The  ASC-30  data  and  clock  signals  are  at 
RS-232  levels  (+12,  -12V).  An  MC1489  line  receiver  was  used  to  convert  the  signals  to  the  TTL 
level  required.  The  MC1489  was  installed  in  the  SABR  DAC  interface  system  developed  from  prior 
beacon  work  [1]. 


Table  1 

l.  DIO-24  Pins 

DIO-24  Pin 

Signal  Name 

37 

800  BPS  Data 

1 

Beacon  Clock 

19 

Ground 

1  wired  to  20 

INT  Enable  Jumper 

2.3. 2. 4  Remote  Equipment  The  SCT  beacon  display  system  can  be  remoted  to  an¬ 
other  location  using  Hayes-compatible  modems.  The  remote  software  can  be  used  only  with  the 
GPM  and  Raytheon  receivers.  In  addition,  the  remote  master  software  uses  COM2  to  relay  the 
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data,  so  the  GPM  control  functions  are  disabled  when  remoting  the  display.  The  communications 
settings  are  shown  in  Table  12.  The  modems  used  were  ZOOM  model  FX9624  and  CTS  DATACOM 
model  2124ADH.  It  is  recommended  the  DATACOM  or  a  ZOOM  modem  be  used  at  the  local  site, 
while  the  ZOOM  be  used  at  the  remote  site.  Erratic  behavior  occurs  when  the  ZOOM  tries  to 
initiate  the  connection  to  the  DATACOM.  The  receive  modem  detects  the  ring,  but  when  it  puts 
up  the  carrier  both  modems  disconnect. 


Table  12.  Remote  Interface  Settings 


Function 

Port 

Baud 

Data 

Parity 

Stop 

Master 

Slave 

Com2 

Coml 

2400 

2400 

8  Bit 

8  Bit 

None 

None 

1  Bit 

1  Bit 

£-4  Software 

This  section  details  the  software  developed  for  the  beacon  display  system.  Each  C  language 
file  is  discussed  and  salient  features  of  particular  functions  in  the  files  are  presented. 

2.4.I  Overview  The  software  was  developed  using  the  Borland  Turbo  C++  Professional 
software  development  system.  The  Turbo-C  project  facility  with  the  interactive  editor  environment 
was  used  to  create  the  system.  The  project  facility  allows  multiple  file  programs  and  provides  all 
the  MAKE  dependency  information  to  compile  and  link  the  entire  program 

The  project  consists  of  12  header  files  (.H  files)  and  19  C  files  (.C  files).  The  project  contains 
approximately  16,000  lines  of  compiled  code  which  links  to  a  100,000+  byte  executable  file.  The 
executable  is  called  “SCT.EXE”.  Tables  13  and  14  list  the  files  and  their  sizes. 

2-4-2  Design  The  initial  design  methodology  tried  was  an  object  oriented  approach.  After 
the  first  design  review,  however,  the  actual  system  design  was  developed  using  a  functional  design 
methodology.  The  reason  for  the  change  was  limited  experience  with  the  object  oriented  paradigm. 
The  final  product  was  divided  into  six  functional  blocks.  The  blocks  are:  receiver,  decode  and 
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Table  14.  JI 


Name 


CURSOR.H 
INTERUPT.H 
IRIG.H 
KEYS.H 
MENU.H 
MODEM. H 
PIO.H 
PORT.H 
SCREEN. H 
SYSTEM. H 
TIMER. H 
WINDOW. H 


Files 


display,  system  time,  user  interface,  remote,  and  control.  Each  block  may  contain  additional  sub- 
modules  which  were  required  to  implement  software  primitives  for  the  parent  functional  block.  In 
addition,  the  SCT  telemetry  display  system  was  designed  as  a  software  state  machine.  The  states 
were  aligned  with  the  functional  blocks.  The  primary  functions  of  each  block  and  the  states  of  the 
system  are  discussed  below. 

2.4.2. 1  Receiver  Block  The  receiver  functional  block  provides  the  interface  to  the  three 
beacon  receivers.  All  receivers  required  a  unique  software  interface.  The  primary  function  of  the 
receiver  software  was  to  obtain  the  100  bits  of  beacon  telemetry  data  from  the  receiver,  and  then 
call  the  decode  and  display  functional  block  to  display  the  information.  The  GPM  and  Raytheon 
interfaces  use  the  interrupt  driven  RS-232  port  software  to  capture  the  input  data  from  the  receiver. 
Interrupt  driven  port  software  was  required  because  the  beacon  receivers  provide  data  at  9600  baud 
which  is  too  fast  for  polled  port  software  to  operate.  The  ASC-30  receiver  uses  the  PIO  interface 
(also  interrupt  driven)  to  capture  the  800  BPS  data  delivered  by  the  AN/ASC-30  beacon  receiver. 
Additional  functions  were  required  in  this  interface  to  locate  the  frame  sync  bit  and  obtain  message 
synchronization.  Once  message  synchronization  is  found,  the  frame  sync  bit  is  monitored  to  ensure 
the  software  stays  synchronized  to  the  800  BPS  PRN  sequence. 

All  three  receiver  software  modules  load  the  captured  beacon  telemetry  data  into  a  globed 
array  named  data.  Once  all  bits  have  been  obtained,  routines  in  the  decode  and  display  functional 
block  are  called  to  update  the  PC  screen  display. 

2. 4. 2. 2  Decode  and  Display  Block  The  decode  and  display  functional  block  was  de¬ 
signed  to  decode  the  100  bits  of  SCT  telemetry  information  delivered  from  the  receiver  functional 
block  and  display  the  information  on  the  PC  screen.  The  block  also  uses  several  global  variables  to 
determine  which  model  satellite  to  display  (DSCS  III  A  or  DSCS  III  B),  and  the  status  informa¬ 
tion  listed  on  line  25  of  the  telemetry  display.  The  software  only  updates  the  screen  when  beacon 
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information  has  actually  changed.  This  screen  update  method  was  used  to  minimize  CPU  cycles 
for  screen  updates  saving  them  for  data  acquisition  and  processing. 

In  addition  to  being  called  by  the  receiver  software,  routines  in  the  decode  and  display  block 
are  called  by  the  system  time  block  to  display  the  system  clock  and  date. 

2. 4. 2-3  System  Time  Block  The  system  time  functional  block  routines  were  used  to 
generate  the  system  time  and  date  for  the  beacon  display.  There  are  two  timers  available.  The  first 
is  an  MS-DOS  timer  which  uses  the  BIOS  timer  function  to  generate  a  1-PPS  interrupt.  When  the 
interrupt  occurs,  a  call  to  MS-DOS  is  made  to  get  the  PC  time.  The  time  value  is  then  formatted 
and  displayed  on  the  screen.  A  call  to  the  MS-DOS  date  software  interrupt  is  made  at  timer 
initialization  and  when  the  hour  is  updated.  The  hourly  call  was  installed  to  check  for  24  hour 
roll-over.  The  timer  interrupt  occurs  asynchronously  which  means  that  it  may  occur  at  any  time. 

The  other  timer  available  is  an  IRIG  timer,  provided  a  Bancomm  IRIG  card  is  installed 
in  the  PC.  The  software  was  designed  to  configure  the  IRIG  card  for  a  1-PPS  interrupt.  When 
the  interrupt  occurs,  an  interrupt  service  routine  requests  time  from  the  card,  and  then  displays 
the  values  to  the  screen.  The  IRIG  time  format  includes  a  date  which  is  initially  formatted  and 
displayed  to  the  screen,  then  monitored  for  changes.  When  a  change  occurs,  the  new  date  replaces 
the  existing  date  on  the  PC  screen.  The  IRIG  timer  interrupt  can  also  occur  at  any  time. 

2. 4-2. 4  User  Interface  Block  The  user  interface  functional  block  was  designed  to  pro¬ 
vide  the  PC  interface  to  the  operator.  It  involves  the  keyboard  and  menu  software  drivers.  The 
keyboard  software  chains  to  the  BIOS  keyboard  interrupt  service  routine  and  intercepts  all  key¬ 
board  inputs  when  the  beacon  display  is  on  the  screen.  When  the  menu  software  is  employed,  the 
keyboard  interrupt  is  removed  for  menu  processing.  In  addition,  when  the  menu  is  displayed,  the 
receiver  software  is  disabled  and  telemetry  updates  are  halted. 
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The  menu  software  originates  in  the  options  section  of  the  user  interface  block.  The  options 
software  contains  the  menu  data  and  the  functions  called  when  the  user  selects  a  menu  item.  It 
calls  the  menu  software  to  display  and  manipulate  the  menus.  The  menu  program  in  turn  calls  the 
window  software  to  open  and  close  windows  for  menu  displays.  This  layered  approach  allowed  the 
lower  level  software  in  the  menu  and  windows  programs  to  be  designed  with  re-use  in  mind.  Only 
the  options  software  is  specific  to  the  SCT  telemetry  display  system  application. 

2. 4-  2.5  Remote  Block  The  function  of  the  remote  block  is  to  remote  the  beacon  display 
to  another  location.  The  design  has  two  parts,  one  for  the  local  display  where  the  beacon  receiver 
is  located,  and  one  for  the  remote  location.  The  link  currently  supported  by  the  software  is  over 
a  phone  line  using  Hayes-compatible  modems  (AT  command  set).  The  software  at  the  local  site  is 
called  the  remote  master  and  initiates  the  phone  call.  The  software  at  the  remote  location  is  named 
the  remote  slave  and  must  be  up  and  waiting  for  the  master  to  call  for  the  system  to  synchronize 
properly.  The  remote  slave  answers  the  phone  and  initiates  the  handshaking  to  synchronize  with 
the  master.  Once  master/slave  synchronization  has  been  accomplished,  the  master  sets  a  global 
flag  informing  the  receiver  block  to  also  remote  the  incoming  beacon  data  to  the  modem  port,  as 
well  as  send  the  satellite  name  at  the  end  of  the  data  stream.  The  remote  slave  software  also  sets 
a  global  variable  for  the  receiver  block  enabling  additional  software  which  monitors  the  satellite 
name  delivered  by  the  remote  master  to  update  the  PC  screen  when  required. 

2. 4- 2. 6  Control  Block  The  control  functional  block  was  designed  to  interface  and  com¬ 
mand  the  GPM  and  Raytheon  beacon  receivers.  This  block  was  provided  as  a  user  enhancement 
so  both  of  the  receivers  can  be  initialized  and  configured  from  within  the  SCT  telemetry  display 
program.  This  saves  the  user  from  having  to  exit  and  restart  the  program  if  a  receiver  configuration 
change  is  required. 
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2.4-2. 7  State  Diagram  In  addition  to  designing  functional  blocks  for  the  SCT  teleme¬ 
try  display,  the  program  was  designed  to  operate  as  a  software  state  machine.  Figure  2  shows  the 
states  defined  and  the  transitions  requirements.  The  syntax  for  the  transition  state  diagram  was 
developed  by  Rumbaugh  [15].  The  transitions  into  each  state  are  shown  on  the  arcs  of  the  diagram. 
The  DO  functions  are  listed  below  and  describe  the  primary  functions  of  each  state.  If  no  transition 
condition  is  present  on  an  arc,  then  the  transition  occurs  when  the  DO  function  completes. 

Menu  DO  operations: 

1.  Process  User  Selections. 

Receiver  DO  operations: 

1.  Capture  beacon  data  from  beacon  receiver  or  modem  port,  put  in  data  array. 

2.  If  remote  master,  relay  incoming  beacon  data  and  satellite  name. 

3.  If  remote  slave,  perform  1  above  then  get  satellite  name. 

Display  DO  operations: 

1.  Compare  new  data  with  old,  update  when  bits  are  different. 

2.  If  called  from  time,  display  new  system  time  and  date. 

Timer  DO  operations: 

1.  1  PPS  interrupt  occurred,  update  system  time,  update  system  date  if  required. 
Remote  DO  operations: 

1.  Master  enabled,  configure  modem,  get  phone  number,  call  and  synchronize  with  slave. 

2.  Remote  enabled,  configure  modem,  wait  for  master  to  call,  answer  phone  and  synchronize 
with  master. 
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Control  DO  operations: 


1.  GPM  Start  enabled,  send  GPM  beacon  mode  commands  to  GPM  over  COM2. 

2.  GPM  Window  enabled,  send  keyboard  keystrokes  to  GPM,  echo  GPM  responses  to 
screen. 

3.  Ray  Start  enabled,  wait  for  Raytheon  to  complete  self  test,  get  satellite  from  user,  send 
proper  oscillator  commands  to  the  Raytheon  receiver. 

4.  Ray  Offset  enabled,  get  offset  frequency  from  user,  format  and  send  oscillator  commands 
to  the  Raytheon  receiver. 


Figure  2.  State  Transition  Diagram 


S.J. S  Source  Code  The  system  development  was  an  incremental  process.  It  started  with 
attempts  to  read  data  from  the  beacon  receivers.  The  first  interface  attempted  was  to  the  ASC-30. 
The  first  interface  completed  was  with  the  Raytheon  system.  Using  the  experience  gained  by 
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debugging  the  Raytheon  software,  the  ASC-30  program  was  corrected  and  completed.  The  GPM 
interface  was  competed  after  the  GPM  was  delivered.  When  it  was  delivered,  however,  it  was 
discovered  that  the  decoder  did  not  operate  properly.  To  help  solve  the  problem,  ASC-30  800  BPS 
data  was  captured  and  sent  to  ComQuest.  The  decoder  problem  was  identified  and  the  control 
ROMs  were  updated  to  correct  the  problem. 

With  the  receiver  interfaces  completed,  the  telemetry  decode  and  display  software  was  de¬ 
signed  and  implemented  for  the  DSCS  III  B  satellite.  After  debug  and  test,  the  software  was 
updated  to  include  decoding  and  displaying  of  DSCS  III  A  satellite  telemetry. 

Once  the  decode  and  display  functions  were  complete,  the  keyboard  interrupt  drivers  and 
initial  menu  software  were  developed.  Changes  to  the  menu  software  continued  up  through  the  end 
of  the  project. 

With  the  delivery  of  the  IRIG  card,  both  system  timer  software  functions  were  implemented. 
Calendar  conversion  routines  were  added  to  complete  the  beacon  screen  display.  The  system  was 
then  demonstrated  to  Wright  Laboratory  personnel  and  it  was  recommended  that  each  satellite 
name  be  available  for  display.  They  also  requested  the  remoting  capability.  Both  additions  were 
then  implemented.  The  final  enhancements  (after  the  remoting  capability)  to  the  display  system 
were  the  addition  of  the  logging  and  control  software,  which  enable  users  to  document  beacon 
configurations  and  control  the  GPM  and  Raytheon  beacon  receivers. 

2.4.3 .1  Start-UP  and  Control  Files  This  section  briefly  describes  the  three  files  which 
contain  the  global  variables,  the  control  functions,  and  the  initialization  routines. 

SYSTEM.H  The  SYSTEM. H  file  contains  the  system  defined  global  variables.  An  attempt  was 
made  to  limit  the  use  of  global  variables,  but  timing  and  memory  constraints  forced  their 
use  to  avoid  parameter  passing  overhead.  The  global  variables  are  actually  declared  in  the 
MAIN.C  file  by  the  Turbo  C  compiler. 
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MAIN.C  The  required  main()  function  resides  in  this  file.  The  program  entry  and  exit  points 
occur  here  as  well.  The  entry  point  is  in  mainQ  where  the  optional  command  line  argument  is 
evaluated.  Main()  also  calls  init()  to  initialize  system  parameters,  and  then  calls  the  selected 
receiver  software  for  telemetry  data  capture.  In  addition,  all  menu  and  logging  functions  are 
called  from  mainQ.  The  MAIN.C  file  also  contains  the  finishQ  routine  which  performs  all 
necessary  functions  to  gracefully  exit  the  program  to  MS-DOS. 

INIT.C  This  file  contains  functions  which  initialize  system  variables.  The  initQ  function  also  calls 
the  optionsQ  function  to  display  the  menu  for  user  initial  inputs. 

S.4.S.S  Receiver  Files  The  files  listed  below  contain  the  code  that  interfaces  to  the 
beacon  receivers.  The  software  uses  the  port  driver  software  to  control  the  data  acquisition  into 
the  PC. 

GPM.C  The  GPM.C  file  contains  the  routines  necessary  to  decode  the  beacon  telemetry  bits 
from  the  ASCII  characters  sent  by  the  GPM.  The  gpm()  function  opens  the  receiver  port 
(COM1)  for  the  data  input.  The  GPM  receiver  packs  the  bits  four  at  a  time,  from  right  to 
left  (MSB  —  >  LSB).  Then,  an  offset  is  numerically  added  to  create  an  ASCII  character.  The 
bits  are  all  collected  and  packed,  and  then  the  characters  are  sent  to  the  PC.  At  the  end  of 
the  100  bits  of  data,  the  GPM  sends  an  “H”  character.  To  start  the  next  update,  the  receiver 
sends  a  carriage  return  and  line-feed,  followed  by  two  spaces.  The  code  traps  on  the  line  feed, 
ignores  the  spaces,  then  decodes  the  telemetry  bits.  Once  the  bits  have  been  obtained,  the 
display  software  is  called  to  display  the  telemetry  update. 

There  is  additional  software  in  GPM.C  that  detects  when  the  GPM  has  stopped  sen  ing 
data.  A  notice  is  posted  on  the  screen  alerting  the  user.  The  notice  is  removed  when  data  is 
received  by  the  COM  port. 

RAY.C  This  file  contains  the  functions  required  to  obtain  and  parse  the  beacon  telemetry  bits 
from  the  characters  sent  by  the  Raytheon  beacon  receiver.  The  data  format  is  different  than 
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the  GPM.  The  bits  are  grouped  eight  bits  at  a  time,  from  left  to  right  (LSB  -  >  MSB),  and 
no  ASCII  offset  is  added.  In  addition,  the  data  stream  is  preceded  by  the  string  “START”. 
The  Raytheon  receiver  sends  the  telemetry  bits  as  they  are  demodulated  and  packed,  not 
waiting  to  collect  all  100  bits.  The  software  traps  on  the  “START”  string  header,  then  strips 
out  the  data  as  it  is  sent.  Once  the  100  bits  are  obtained,  the  decode  and  display  software  is 
called  to  update  the  SCT  configuration  display.  The  Raytheon  software  also  contains  a  port 
timer  which  notifies  the  user  if  the  system  is  not  receiving  data  from  the  beacon  receiver. 

ASC30.C  The  ASC-30  receiver  software  is  more  complex  than  the  other  two  receiver  packages. 
This  is  because  the  ASC-30  does  not  pull  out  the  telemetry  bits  from  the  800  BPS  data 
stream.  The  ASC-30  is  a  demodulator  only.  The  software  first  finds  the  sync  bit  in  the  data 
stream.  Since  the  ASC-30  may  phase-lock  180  degrees  out  of  phase,  the  software  searches  for 
both  a  1  and  a  0  sync  bit.  An  invert  flag  is  set  if  data  inversion  is  required. 

Once  the  bit  synchronization  is  found,  the  software  attempts  to  find  message  synchronization 
by  monitoring  the  25-  and  32-bit  sequences  for  the  11111  pattern.  When  it  is  found,  program 
control  is  passed  to  the  telemetry  recovery  software  where  the  beacon  bits  are  decoded  from 
the  data  stream.  The  sync  bit  is  monitored  for  loss  of  synchronization. 

The  ASC-30.C  software  does  not  provide  remoting  capabilities.  This  is  because  the  PIO  card 
uses  the  COM2  interrupt  request  and  vector,  as  well  as  requiring  major  software  modifications 
to  send  the  acquired  data  over  the  phone  link.  These  changes  were  not  implemented  so  other 
enhancements  could  be  made  in  the  time  allowed. 

Another  problem  with  the  ASC-30  receiver  software  is  that  it  loses  message  synchronization 
when  the  display  system  is  updating  system  time.  This  is  due  to  the  added  computational 
load  of  the  ASC-30  software.  The  system  time  functions  are  disabled  when  the  ASC-30 
program  is  called.  They  may  be  restored  by  using  the  menu  system.  The  problem  exists  on 
80286  (12  MHz  or  slower)  CPU  based  machines. 
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£.4-3.3  Display  Files  The  display  files  contain  the  code  used  to  display  the  beacon 
data,  configure  and  control  the  screen,  and  implement  the  menuing  system.  These  files  are  the 
largest  programs  in  the  display  system. 

SCREEN. C  /  SCREEN. H  The  SCREEN. C  file  contains  all  the  decode  and  display  software  for 
the  telemetry  display  screen.  It  is  the  largest  file  in  the  project.  The  routines  are  called  from 
the  receiver  software  when  a  screen  update  is  required.  The  decode  software  compares  the 
new  beacon  data  with  a  copy  of  past  beacon  data  and  then  updates  any  changed  information. 
This  means  that  screen  updates  occur  only  when  beacon  information  has  been  changed.  This 
method  was  used  to  minimize  screen  writes,  saving  CPU  cycles  for  the  decoding  software. 

The  routines  are  partitioned  in  the  same  manner  as  the  display  screen.  There  are  routines  for 
displaying  system  time,  beacon  time,  beacon  status,  and  beacon  configuration.  Also  included 
are  routines  to  update  the  lower  left  and  lower  right  blocks  of  the  screen.  In  addition,  there 
is  a  routine  to  update  the  labels  and  borders.  All  blocks  are  relative  to  base  points  which  are 
declared  as  package  global  variables. 

SCREEN.H  contains  the  file  function  prototypes  and  package  variables  used  in  SCREEN.C. 
In  general,  the  .H  files  were  created  for  interface  purposes  to  define  the  functions  available 
to  external  programs,  and  to  declare  package  global  variables  required  by  functions  in  the 
file.  Global  function  declarations  are  performed  in  the  C  language  by  means  of  function 
prototyping.  Function  prototypes  are  declarations  (usually  in  a  .H  file)  of  the  function  name, 
the  number  and  type  of  parameters  passed  to  the  function,  and  the  type  of  the  function 
itself  (the  type  of  value  returned  by  the  function).  This  allows  external  programs  to  call  and 
interface  properly  to  the  prototyped  function. 

CURSOR.C  /  CURSOR.H  These  routines  perform  cursor  manipulations.  They  are  modified 
versions  of  code  presented  in  the  Turbo  C  book  by  Stevens  [16].  While  many  functions  were 
included,  the  only  ones  used  were  the  hide  cursor  and  display  cursor  programs. 
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OPTIONS. C  This  software  package  is  the  second  largest  file  in  the  project.  It  contains  the  code 
which  defines  the  menus  for  the  system.  The  functions  in  MENU.C  actually  implement  and 
display  the  menu,  but  the  software  in  OPTIONS. C  contain  the  data  structures  for  the  menus, 
as  well  as  the  programs  which  are  executed  when  the  user  selects  a  menu  item. 

MENU.C  /  MENU.H  This  file  contains  the  functions  which  display  and  manipulate  the  menus. 
This  software  is  called  when  the  user  presses  the  <  FI  >  function  key.  It  is  also  a  modifica¬ 
tion  of  software  from  [16].  When  called,  the  software  displays  the  menu  information  passed 
to  it.  The  software  monitors  the  arrow  keys,  the  carriage  return  key,  and  the  escape  key. 
Each  direction  key  moves  the  highlighted  area  of  the  menu.  Carriage  return  executes  the 
selected  function,  while  escape  exits  the  menu  software.  The  code  uses  window  primitives  in 
WINDOW. C  to  open  and  close  windows  for  each  menu. 

WINDOW. C  /  WINDOW. H  This  code  allows  the  user  to  open  and  close  windows.  The  cur¬ 
rent  active  window  is  the  last  one  opened.  The  software  can  support  up  to  ten  open  windows. 
In  addition  to  windowing  functions,  the  software  provides  display  notice,  error  message,  and 
yes/no  input  specialty  windows. 

8.4. 3. 4  System  Time  This  section  of  the  system  software  generates  the  the  system 
time  for  the  display  and  the  beacon  clock  offset.  In  addition,  calendar  functions  are  contained  in 
the  files  to  convert  the  dates  for  display  to  the  PC  screen. 

STIME.C  The  STIME.C  file  contains  the  routines  used  to  produce  the  MS-DOS  system  timer. 
This  timer  is  implemented  using  the  BIOS  timer  interrupt.  A  counter  in  the  timer  interrupt 
service  routine  determines  when  to  update  the  system  time. 

In  addition  to  the  timing  functions,  calendar  functions  were  used  to  change  the  MS-DOS 
date  in  terms  of  day  and  month  to  a  linear  day  of  year.  January  1  is  considered  to  be  day  1. 
The  calendar  conversion  routines  are  conversions  of  PASCAL  public  domain  software  found 
in  [17]. 
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IRIG.C  /  IRIG.H  IRIG.C  software  disables  the  MS-DOS  timer,  initializes  the  IRIG  card,  and 
provides  an  interrupt  service  routine  to  update  the  system  time  and  calculate  the  beacon  clock 
difference.  It  also  provides  routines  to  disable  the  card  and  interrupt  driver.  The  initialization 
routine  configures  the  IRIG  card  to  synchronize  to  an  external  IRIG  B  time  standard,  then 
interrupt  the  PC  at  one  second  intervals  when  the  “ON  TIME”  IRIG  event  occurs. 

The  IRIG.H  file  contains  the  port  address,  interrupt  request  (IRQ),  and  interrupt  vector 
assignments  for  the  card.  If  the  IRIG  hardware  address  or  interrupt  values  are  changed,  the 

values  in  this  file  must  be  updated  to  match  the  change,  or  the  software  will  not  be  able  to 

• 

access  the  card. 

There  is  an  intermittent  problem  with  the  IRIG  system  timer.  It  usually  occurs  when  the 
program  is  interrupted  and  the  IRIG  card  is  not  reset  or  the  interrupt  not  disabled.  The  card 
still  initializes  normally,  but  will  not  generate  the  1  PPS  interrupt.  The  fix  was  to  turn  off 
the  PC  for  at  least  one  minute.  This  resets  the  card  for  normal  use.  It  is  not  know  why  the 
problem  occurs,  or  why  the  fix  works. 

S.4.S.5  Ports  The  port  files  contain  the  software  primitives  to  control  the  data  acqui¬ 
sition  ports.  The  ports  used  were  the  COM1  and  COM2  serial  RS-232  ports  and  a  DIO-24  parallel 
port. 

PORT.C  /  PORT.H  PORT.C  contains  the  software  required  to  interface  with  the  PC  serial 
ports.  These  are  the  port  drivers.  The  current  version  of  the  software  supports  the  COM1 
and  COM2  ports.  The  receive  software  is  interrupt  driven  and  provides  a  buffer  of  1024 
characters  for  received  data.  The  transmit  routines  are  not  interrupt  driven,  but  will  wait 
until  the  transmit  Universal  Asynchronous  Receiver/Transmitter  (UART)  is  ready  so  data  is 
not  overwritten.  The  code  provides  interrupt  service  routines  for  both  ports.  In  addition,  the 
receive  software  will  relay  data  to  the  remote  port  (COM2)  when  the  display  system  is  in  the 
remote  mode. 
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The  PORT.H  file  contains  the  function  prototypes,  but  more  importantly,  contains  the  port 
addresses,  IRQs,  and  interrupt  vector  definitions  for  the  RS-232  ports.  The  values  Me  shown 
in  Table  7  used  are  the  standard  defined  for  the  PC  AT  [18]. 

PIO.C  /  PIO.H  These  files  contain  the  software  to  initialize  and  use  the  DIO-24  PIO  card.  Like 
the  COM  ports,  the  PIO  software  provides  interrupt  driven  receive  capability  with  a  1024 
character  buffer.  The  code  also  provide  a  transmit  capability,  but  it  is  not  used. 

Like  the  PORT.H  file,  the  PIO.H  file  contains  the  address,  IRQ,  and  interrupt  vector  defini¬ 
tions  for  the  DIO-24  card.  Again,  any  changes  to  the  hardware  settings  require  changes  in 
PIO.H  so  the  software  can  communicate  with  the  card. 

S.4-S.6  Remote  This  section  of  the  display  system  software  was  implemented  at  the 
request  of  the  Wright  Laboratory.  The  functions  take  the  beacon  display  running  at  the  receiver 
location  and  remote  the  display  to  a  different  site  using  a  telephone  link. 

REMOTE.C  REMOTE.C  has  four  main  routines  which  implement  the  start  remote  master, 
start  remote  slave,  stop  remote  master,  and  stop  remote  slave  functions.  The  start  routines 
initiate  the  modem,  dial  or  answer  the  phone,  synchronize  with  each  other,  and  then  display 
the  beacon  telemetry  data.  The  start  remote  master  sets  a  global  flag  telling  the  receive 
port  software  to  relay  data  to  COM2  for  remoting.  The  start  remote  slave  software  opens 
the  COM1  port,  receives  the  receiver  type  from  the  master,  then  exits  to  the  proper  receiver 
software. 

Both  stop  routines  hang  up  the  phone  and  reset  the  modem.  The  remote  master  will  detect 
when  the  remote  slave  hangs  up  and  stop  relaying  the  data.  The  remote  slave  will  display  a 
“NO  DATA”  notice  if  the  master  stops  sending  data. 
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MODEM. C  /  MODEM. H  The  MODEM. C  software  was  incorporated  into  the  remote  file.  It 
contained  the  primitives  used  to  control  and  use  the  modems.  The  software  assumes  Hayes 


compatible  modems  using  the  AT  command  set. 

MODEM. H  contains  the  actual  modem  control  strings.  If  different  modems  are  required, 
then  this  is  the  file  to  modify  with  the  proper  modem  control  instructions. 

2-4.S.  7  Beacon  Receiver  Control  The  control  file  was  added  to  allow  the  user  to  bring 
up  and  configure  the  GPM  and  the  Raytheon  receivers  without  exiting  the  SCT  telemetry  display 
program. 

CONTROL.C  The  four  receiver  control  files  are  located  in  CONTROL.C.  The  two  GPM  func¬ 
tions  are  gpm_start()  and  gpm.windowQ.  The  start  code  configures  the  GPM  for  beacon 
operation.  The  window  software  allows  the  user  to  send  commands  to  the  GPM.  It  takes 
the  keyboard  input  and  sends  it  to  the  GPM,  and  then  echoes  all  GPM  responses  to  the  PC 
screen  in  the  active  window.  The  GPM  window  software  was  specifically  installed  to  reset 
the  GPM  back  to  the  factory  default  settings  (the  IN  command)  [14].  The  GPM  RS-232  port 
(connector  Jl)  must  be  set  to  the  factory  default  sections  which  are  listed  in  the  hardware 
section  of  this  chapter. 

The  two  Raytheon  control  programs  are  rayjstartQ  and  ray_offset().  Both  programs  are 
conversions  of  the  Raytheon  Pascal  code  delivered  with  the  beacon  receiver.  The  C  equivalent 
programs  can  replace  the  PASCAL  program  if  desired.  The  start  code  allows  the  user  to  bring 
up  and  configure  the  receiver.  The  offset  function  '•alculates  frequency  offset  commands  to 
be  sent  to  the  receiver.  The  frequency  offset  code  was  included  and  tested  for  completeness, 
but  frequency  offsets  were  never  required  during  the  work  on  this  thesis. 


2. 4. 3. 8  Support  Files  The  files  listed  below  provide  software  primitives  for  control  of 

the  PC  hardware. 
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TIMER.C  /  TIMER.H  These  files  allow  the  system  to  chain  to  the  BIOS  system  timer  inter¬ 
rupt.  The  interrupt  service  routine  is  used  to  determine  port  timeouts  and  to  implement  the 
MS-DOS  system  time  generator. 

INTERUPT.H  This  file  contains  a  general  list  of  interrupt  definitions  used  throughout  the  sys¬ 
tem.  The  file  was  developed  with  re-use  in  mind,  so  it  contains  several  definitions  that  are 
not  used. 

KEYS.H  This  file  contains  the  PC  BIOS  keyboard  scan  codes  used  by  the  system. 

KEYBOARD. C  Keyboard  control  routines  are  located  in  this  file.  It  chains  to  the  existing 
keyboard  interrupt  and  provides  an  interrupt  service  routine  to  obtain  keystrokes  for  the 
display  system.  It  also  contains  a  versatile  get  string  routine  (my.cgets)  which  is  used  for  all 
user  string  inputs. 

PRINTER.C  As  the  file  name  suggests,  this  file  has  the  printer  driver  routines  in  it.  Included  is 
a  function  checking  the  printer  port  for  problems.  It  was  developed  to  ensure  the  system  did 
not  crash  when  the  printer  had  a  problem. 

2.5  Summary 

This  chapter  presented  an  overview  of  the  SCT  telemetry  data  format,  the  hardware  used 

by  the  display  system,  and  the  source  code  developed  for  the  system.  Chapter  III  presents  an 

operational  view  of  the  SCT  display  system. 
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III.  Operational  Description 


3.1  Introduction 

This  chapter  provides  an  operational  description  of  the  SCT  telemetry  display  software.  It 
starts  with  an  overview  of  how  the  system  was  designed  to  operate,  follows  with  how  to  bring  the 
system  up,  and  then  discusses  the  different  operating  modes  available  to  the  user.  After  covering 
system  modes,  each  menu  selection  is  detailed  as  to  its  function  and  what  it  does  to  the  operation, 
or  state,  of  the  SCT  telemetry  display  system. 

3.2  Overview 

The  SCT  telemetry  display  software  was  designed  to  run  on  an  IBM  compatible  personal  com¬ 
puter  and  interface  to  one  of  three  DSCS  III  SHF  beacon  receivers.  The  receivers  are  the  ComQuest 
General  Purpose  Modem,  the  Raytheon  Stand  Alone  Beacon  Receiver,  and  the  AN/ASC-30  Small 
EHF/SHF  Terminal.  The  display  system  uses  an  RS-232  communications  port  to  interface  with 
the  GPM  and  Raytheon  receivers.  The  ASC-30  interface  is  through  a  parallel  data  acquisition 
card.  In  addition,  the  display  system  provides  control  of  the  GPM  and  Raytheon  systems  through 
RS-232  ports.  The  GPM  uses  COM2  of  the  PC,  while  the  Raytheon  system  uses  COM1  for  both 
the  control  and  beacon  data  ports. 

For  all  hardware  interfaces,  the  beacon  display  system  has  unique  software  interfaces  to  parse 
out  the  beacon  data.  The  parsing  software  then  calls  the  decode  and  display  software  to  display 
the  beacon  configuration  information  on  the  PC  screen.  Figure  3  shows  a  DSCS  III  A  display  while 
Figure  4  shows  a  DSCS  III  B  display. 

The  executable  form  of  the  program  is  named  “SCT.EXE”.  To  start  the  program,  the  user 
types  SCT  at  the  MS-DOS  prompt.  The  user  must  ensure  the  program  is  on  the  current  drive, 
or  that  a  path  name  is  used  in  front  of  the  program  name  to  tell  DOS  where  the  program  is 
located.  The  program  initializes  the  software  variables  and  then  displays  the  options  menu  shown 
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in  Figure  5.  Note  that  the  default  receiver  is  the  GPM.  The  pull-down  menu  options  are  discussed 
later  in  the  chapter.  To  exit  the  options  menu,  the  user  presses  the  ESC  key.  The  display  system 
then  executes  all  enabled  options  and  modes.  To  change  any  option,  or  mode,  the  user  presses  the 
<  FI  >  function  key  to  bring  up  the  options  menu  again.  To  exit  the  program,  the  user  presses 
the  <  Q  >  key  to  bring  up  the  notice  shown  in  Figure  6.  When  the  user  presses  the  <  Y  >  key, 
the  program  terminates  by  closing  all  hies  and  ports  and  exiting  to  MS-DOS. 


Figure  5.  Options  Menu 


The  primary  function  of  the  software  is  to  decode  and  display  the  SCT  beacon  telemetry  data 
delivered  by  one  of  the  beacon  receivers.  The  configuration  display  is  shown  in  Figures  3  and  4. 
The  information  is  displayed  in  five  blocks.  The  first  block  is  the  decoded  SCT  clock  time  shown 
on  line  three.  The  second  block  is  located  in  the  upper  left  quadrant  and  is  titled  “Status”.  The 
information  in  this  block  was  singled  out  specifically  for  SATCOM  Group  use  when  attempting  to 
command  the  SCT.  Block  three  is  titled  “Configuration”  and  is  located  in  the  upper  right  quadrant 
of  the  display.  It  contains  pertinent  information  about  the  commanding  configuration  of  the  SCT. 
Blocks  four  and  five  are  located  in  the  lower  left  and  lower  right  quadrants  of  the  display  screen, 
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Figure  6.  Beacon  Display  Quit  Prompt 


respectively.  They  display  the  remaining  SCT  beacon  information.  Block  four  is  interesting  because 
this  is  where  the  major  differences  between  the  DSCS  III  A  and  DSCS  III  B  satellites  are  displayed. 

In  addition  to  the  decoded  beacon  information,  the  SCT  display  system  provides  a  satellite 
name,  system  time,  system  date,  and  system  status  information.  As  shown  in  Figure  4,  the  satellite 
name  is  on  line  one  (DSCS  III  B14),  while  the  system  time  and  system  date  are  located  on  line 
two.  The  display  system  status  is  located  at  the  bottom  of  the  display  on  lines  24  and  25.  The 
status  line  shows  the  user  commands  available  (Quit,  Options,  and  Print)  and  the  display  systems 
configuration.  The  system  configuration  information  consists  of  the  beacon  receiver  used,  the 
satellite  model  (DSCS  III  A  or  B),  if  the  IRIG  card  is  setting  system  time,  and  the  system  logging 
status.  In  addition,  when  the  PC  is  equipped  with  a  Bancomm  IRIG  card  and  the  IRIG  mode  is 
enabled,  line  four  of  the  PC  display  screen  is  used  to  display  the  difference,  in  seconds,  between  the 
system  and  the  most  recent  decoded  beacon  time.  Figure  3  shows  the  difference  display  when  the 
system  is  using  the  GPM  beacon  receiver.  The  IRIG  option,  along  with  the  other  mode  options,  is 
discussed  next. 
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S.S  System  Modes 


The  software  has  additional  user  selected  modes,  or  capabilities,  available.  The  default,  or 
“normal”  mode,  is  when  the  display  system  is  interfaced  to  one  of  the  beacon  receivers  displaying 
the  SCT  information  with  the  MS-DOS  timer  setting  the  system  time.  There  are  four  additional 
modes:  IRIG,  Remote,  Logging,  and  Control.  These  modes  are  enabled  using  the  menu  software 
activated  by  pressing  the  <  FI  >  function  key.  Most  modes  are  independent  of  each  other.  In 
other  words,  they  can  all  be  enabled  at  the  same  time.  The  exception  occurs  when  the  system  is  in 
the  remote  mode  as  the  slave.  In  this  case,  the  remote  slave  cannot  implement  the  IRIG  or  Control 
modes  because  the  remote  master  site  is  the  system  interfaced  to  the  beacon  receiver.  The  remote 
slave  is  interfaced  to  the  telephone  modem.  The  menu  description  section  later  in  this  chapter 
discusses  the  remote  slave  and  remote  master  software  in  more  detail. 

As  mentioned  before,  the  IRIG  mode  enables  additional  software  to  use  a  Bancomm  630AT 
IRIG  card  to  generate  the  system  time,  which  is  synchronized  to  a  local  IRIG  B  time  standard  [13]. 
The  software  generates  an  on-time  interrupt,  calculates  the  difference  from  the  most  recently  de¬ 
coded  beacon  SCT  clock  time,  then  displays  the  difference  as  shown  in  Figure  3. 

The  Remote  mode  consists  of  two  additional  pieces  software.  The  display  system  can  be 
configured  as  either  the  remote  master  or  the  remote  slave.  The  remote  master  is  the  system 
interfaced  to  one  of  the  beacon  receivers.  The  master  software  initiates  the  phone  call  to  contact 
the  slave  at  the  remote  site,  sends  the  receiver  type  and  satellite  name  to  the  remote  slave,  and  then 
relays  the  beacon  information  as  it  comes  in  to  the  PC.  The  remote  master  continues  to  perform 
its  own  decoding  and  display  duties  while  sending  data  to  the  slave. 

When  the  remote  slave  software  is  started,  it  disables  functions  which  are  no  longer  appro¬ 
priate  (such  as  receiver  selections)  and  waits  for  the  remote  master  to  call.  When  contact  and 
synchronization  is  established,  the  remote  slave  obtains  the  receiver  type  and  satellite  name,  and 
then  operates  in  the  normal  mode. 
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The  logging  modes  allow  the  user  to  capture  the  beacon  display  screen  and  save  it  to  the 
printer  or  disk.  The  capture  can  be  initiated  by  the  user,  a  watchdog  timer,  or  by  the  command 
accepted  bit  embedded  in  the  decoded  beacon  telemetry  data.  All  functions  are  independent  and 
can  be  enabled  at  the  same  time. 

The  control  mode  will  allow  the  users  to  control,  or  interact,  with  the  GPM  and  Raytheon 
beacon  receivers.  Both  receivers  were  designed  to  interface  with  a  remote  host,  and  the  control  mode 
software  takes  advantage  of  this.  The  control  mode  also  provides  start-up  control  and  commands 
for  both  receivers. 

More  details  the  modes  and  functions  are  discussed  next  as  each  menu  selection  is  detailed. 
The  logical  place  to  begin  the  description  is  with  the  main  menu  selections. 

3.4  Menu  Description 

3.4.1  Main  Menu  Figure  5  shows  the  main  menu  selections  of  the  SCT  beacon  display 
system.  They  are  /deceiver,  Time,  Satellite,  Remote,  Log,  and  Control.  The  left/right  arrow  keys 
move  the  highlighted  main  menu  selection.  At  each  menu  item,  the  menu  display  software  pulls 
down  vertical  sub-menu  selections.  The  up/down  arrow  keys  will  move  the  highlighted  vertical 
menu  selection.  A  selection  with  a  check  mark  indicates  that  particular  menu  item  was  selected 
and  executed  previously.  To  change  the  display  parameters,  the  user  moves  the  highlight  to  the 
desired  pull-down  menu  item,  then  presses  the  carriage  return  <  CR  >  key.  To  exit  the  menu 
driver  software,  the  user  presses  the  <  ESC  >  key. 

Menu  items  with  an  asterisk  are  disabled  selections  which  can  only  be  accessed  when  the 
SCT  display  system  is  in  a  particular  mode,  such  as  the  remote  slave  mode.  The  following  sections 
describe  the  pull-down  menu  items  in  detail,  including  how  to  get  into  the  remote  slave  mode. 

3.4-2  Receiver  Menu  The  Receiver  pull-down  menu  selections  consist  of  four  items;  GPM, 
Raytheon,  ASC-SO,  and  Remote.  The  menu  is  also  shown  in  Figure  5.  Note  the  Remote  selection 
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is  disabled  since  it  is  in  reverse  video  and  followed  by  an  asterisk.  These  selections  allow  the  user 
to  tell  the  system  which  SCT  beacon  receiver  is  connected  to  the  PC.  The  three  beacon  receivers 
are  the  ComQuest  General  Purpose  Modem  ( GPM ),  the  Raytheon  Stand  Alone  Peacon  Receiver 
(Raytheon),  and  the  AN/ASC-30  Small  EHF/SHF  Terminal  (ASC-SO).  The  system  default  receiver 
is  the  GPM.  The  pull-down  menu  item  with  the  check  mark  tells  the  decode  and  display  software 
which  interface  software  to  use  and  which  port  the  data  will  be  coming  in  from.  Chapter  II  discusses 
the  actual  implementation  details  of  the  software  and  hardware. 

The  Remote  selection  is  enabled  only  when  the  display  system  is  in  the  remote  slave  mode. 
When  in  this  mode,  the  remote  master  location  controls  the  beacon  receiver  selection,  so  all  other 
selections  are  disabled.  Execution  of  the  Remote  menu  item  results  in  an  error  message. 

8.4.8  Time  Menu  The  Time  menu  item  is  used  by  the  system  to  determine  which  time 
source  will  be  used  to  set  the  system  time.  The  user  has  two  choices,  MS-DOS  and  IRIG  (Figure  7). 
The  default  is  MS-DOS.  If  the  user  selects  the  MS-DOS  menu  item,  the  software  disables  the  IRIG 
interrupt  (if  it  was  enabled),  and  then  uses  the  MS-DOS  timer  interrupt  to  generate  a  one  pulse- 
per-second  (PPS)  update  of  the  system  time  display. 

If  a  Bancomm  IRIG  card  is  installed  in  the  PC,  the  user  can  enable  the  IRIG  mode  by 
selecting  the  IRIG  item  on  the  Time  vertical  menu.  As  the  software  initializes  the  IRIG  card, 
Figure  8  appears.  The  card  is  used  to  generate  a  one  PPS  interrupt  to  display  system  time.  In 
addition,  the  card  time  is  used  to  calculate  the  difference  between  the  IRIG  time  and  the  most 
recently  decoded  beacon  clock  time.  The  resolution  of  the  difference  calculation  is  in  seconds. 

8.4.4  Satellite  Menu  The  Satellite  menu  item  allows  the  user  to  select  which  DSCS  III 
satellite  the  beacon  receiver  is  demodulating.  The  pull  down  menu  is  shown  in  Figure  9.  The  menu 
selections  list  the  possible  DSCS  III  satellites  available  [19].  The  software  uses  the  information 
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from  this  menu  selection  to  determine  which  satellite  name  to  display  on  the  top  line  of  the  beacon 
information  display  window,  as  well  as  the  type  of  satellite  (DSCS  III  A  or  DSCS  III  B). 

The  Other  selection  allows  the  user  to  input  a  satellite  name  other  than  the  ones  listed  on 
the  menu.  The  entered  name  will  be  displayed  on  the  top  line  of  the  beacon  information  window, 
but  the  satellite  type  is  assumed  to  be  DSCS  III  B.  Figure  10  shows  the  data  entry  template  for 
the  user  to  enter  the  satellite  name. 


The  disabled  Remote  item  under  the  Satellite  main  menu  option  (Figure  9)  is  similar  to  the 


Remote  selection  shown  in  the  Receiver  pull-down  menu.  This  selection  is  enabled  only  when  the 


software  is  in  the  remote  slave  mode  and  the  remote  master  is  setting  the  satellite  name.  Selecting 


the  Remote  item  when  it  is  enabled  results  in  an  error  message. 


Figure  9.  Satellite  Menu 


S.4-5  Remote  Menu  The  Remote  pull-down  menu  selections  are  shown  in  Figure  11.  These 
software  options  allow  for  remoting  the  beacon  display  to  a  different  location  over  a  telephone  link. 


The  initial  menu  has  four  selections,  two  enabled  and  two  disabled.  The  Start  Remote  Master  item 


tells  the  display  system  it  is  now  in  the  remote  master  mode  and  is  expected  to  make  contact  with 
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the  remote  slave  and  begin  relaying  data.  The  remote  master  software  initializes  the  modem,  then 
prompts  the  user  for  a  phone  number  to  dial  as  shown  in  Figure  12.  Once  the  software  has  the 
phone  number,  it  nstructs  the  modem  to  dial  the  number  and  waits  for  the  slave  to  answer.  If 
the  slave  answers  within  15  seconds,  the  slave  and  master  exchange  synchronization  messages  to 
establish  contact.  The  remote  master  code  displays  the  message  shown  in  Figure  13  while  waiting 
for  the  slave  software  to  answer.  Once  synchronization  has  been  obtained,  the  master  software  sets 
a  global  flag  telling  the  port  software  to  also  send  beacon  data  to  the  remote  site.  If  synchronization 
fails,  an  error  message  is  displayed  and  the  master  software  returns  to  the  main  menu. 

If  the  slave  fails  to  answer  the  phone  within  15  seconds,  the  timeout  message  shown  in 
Figure  14  is  displayed.  The  user  can  continue  to  wait,  or  exit  the  master  software. 

Once  the  system  is  in  the  remote  master  mode,  the  only  menu  selections  enabled  in  the 
Remote  pull-down  menu  is  the  Stop  Remote  Master  item.  If  the  user  selects  this  menu  item,  the 
software  instructs  the  modem  to  hang  up  the  phone  and  reset.  Once  the  modem  is  reset,  control  is 
returned  to  the  receiver  software  in  the  normal  beacon  display  mode. 
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Figure  12.  Phone  Number  Prompt 
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Figure  13.  Remote  Master  Wait  Notice 


The  software  operating  at  the  remote  slave  site  must  be  in  the  remote  slave  mode.  There  are 
two  ways  to  get  the  display  system  into  this  mode.  One  is  for  the  user  to  select  the  Start  Remote 
Slave  item  in  the  Remote  pull-down  menu.  The  other  is  to  specify  remote  slave  at  system  start-up 
by  typing  SCT  REMOTE  at  the  MS-DOS  prompt.  The  remote  slave  software  initializes  the 
modem  and  puts  it  into  the  auto-answer  mode.  It  then  waits  for  the  master  to  initiate  a  phone 
call.  When  the  master  does  call,  the  slave  software  initializes  the  synchronization  sequence  after  a 
carrier  is  detected.  Once  the  proper  handshaking  sequence  is  accomplished,  the  master  sends  the 
beacon  receiver  type  (GPM  or  Raytheon)  and  the  satellite  name  to  the  slave.  The  remote  master 
software  cannot  be  used  if  the  ASC-30  is  the  beacon  receiver  due  to  system  configuration  problems 
discussed  in  Chapter  II.  The  slave  then  starts  the  proper  parsing  software  and  program  control  is 
turned  over  to  the  receiver  software. 

To  exit  the  remote  slave  software,  the  user  selects  the  enabled  Stop  Remote  Slave  menu  item 
in  the  Remote  pull-down  menu.  The  slave  software  instructs  the  modem  to  hang  up  the  phone 
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and  reset.  When  reset  is  completed,  the  slave  software  returns  control  to  the  decode  and  display 
software  where  the  user  can  exit  the  program  by  typing  the  <  Q  >  then  <  Y  >  keys. 
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Figure  14.  Remote  Master  Contact  Timeout 


3-4-6  Log  Menu  The  next  main  menu  selection  is  the  Log  item.  The  pull  down  menu  is 
shown  in  Figure  15.  As  can  be  seen,  there  are  four  selections:  Trigger  Print,  Timed  Print,  Trigger 
Disk,  and  Timed  Disk.  The  selections  put  the  display  in  different  logging  modes,  depending  on 
which  menu  items  are  selected.  The  menu  selections  with  the  check  marks  are  the  logging  modes 
enabled. 

The  Timed  Print  and  Timed  Log  items  allow  the  user  to  select  timed  intervals  to  print,  and/or 
save  to  disk,  the  beacon  information  display.  Figure  16  shows  the  user  prompt  screen  for  the  interval 
timer  input.  The  user  has  a  choice  of  1  to  120  minute  intervals.  When  the  interval  timers  are 
enabled,  the  system  captures,  then  prints  (or  saves)  an  initial  beacon  screen  three  seconds  after  the 
item  is  selected.  The  delay  allows  the  decoding  software  to  capture  a  current  beacon  configuration 
c  d  display  it  to  the  screen. 
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Figure  15.  Log  Menu 


The  Trigger  Print  and  Trigger  Disk  logging  modes  tell  the  decode  software  to  monitor  the 
command  accept  bit  in  the  beacon  information  (see  Chapter  II).  When  the  bit  toggles  to  TRUE, 
the  decode  software  signals  the  system  to  print  (or  save  to  disk)  the  current  beacon  display. 

To  disable  any  active  logging  modes,  the  user  selects  the  desired  menu  item  and  presses 
<  CR  >.  The  selection  will  toggle  and  disable  the  logging  mode. 

8.4  7  Control  Menu  The  pull-down  menu  selections  under  the  Control  main  menu  item 
allow  the  user  to  interface  with  the  GPM  and  Raytheon  beacon  receivers.  The  selections  are  shown 
in  Figure  17.  The  GPM  START  menu  item  opens  the  window  shown  in  Figure  18.  This  software 
package  sends  the  proper  configuration  commands  to  the  ComQuest  GPM  for  DSCS  III  beacon 
operation.  The  commands  are  described  in  the  GPM  reference  manual  [14].  Once  the  commands 
are  sent,  the  software  waits  for  three  seconds  to  allow  the  user  time  to  check  the  GPM  responses 
for  errors.  If  an  error  has  occurred,  the  GPM  Window  menu  item  can  be  used  to  interact  with 
the  GPM  through  its  remote  control  port.  Figure  19  shows  the  GPM  control  window.  The  GPM 
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Figure  16.  Logging  Timed  Print  User  Prompt 


Window  software  sends  the  user  keystrokes  to  the  GPM  and  prints  the  GPM  responses  to  the  PC 
screen  in  the  window.  It  was  installed  to  initialize  and  check  the  GPM  for  proper  operation. 

The  Ray  Start  menu  item  provides  the  software  required  to  bring  up  the  Raytheon  Stand 
Alone  Beacon  Receiver.  Figure  20  shows  the  Raytheon  start  window.  To  use  the  window,  the  user 
selects  the  menu  option,  then  restarts  the  Raytheon  beacon  receiver.  When  the  beacon  receiver  has 
completed  its  self  test,  the  software  prompts  the  user  to  select  a  satellite  (Figure  21).  The  proper 
commands  are  then  sent  to  the  beacon  receiver  and  program  control  returns  to  the  menu  software. 

The  last  Control  menu  item  is  Ray  Offset.  It  allows  the  user  to  adjust  the  Raytheon  beacon 
receiver  frequency  offset .  This  may  be  required  if  a  particular  satellite  has  high  Doppler  shift.  The 
frequency  shift  window  is  shown  in  Figure  22.  The  user  enters  the  desired  frequency  shift  (in  Hertz) 
and  the  software  generates  the  required  commands  to  offset  the  Raytheon  beacon  receiver  center 
frequency. 
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S.5  Summary 


This  chapter  presented  an  operational  description  of  the  beacon  display  software.  The  func¬ 
tion  of  each  menu  item  was  described  in  terms  of  how  the  selections  affect  the  operation  of  the 
beacon  display  software  and  in  which  modes  they  put  the  system.  The  next  chapter  presents  the 
start-up  procedures  required  to  bring  up  the  beacon  receivers  and  the  SCT  beacon  display  software. 
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Figure  18.  GPM  Start  Window 
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Figure  22.  Raytheon  Offset  Window 


IV.  Start-Up  Procedures 


4-1  Introduction 

This  chapter  details  the  start-up  procedures  of  the  SCT  beacon  display  system.  The  guiding 
purpose  of  the  chapter  was  to  provide  all  the  necessary  information  so  users  can  start  up  the 
required  equipment  and  display  the  SCT  configuration.  There  are  three  sections  to  the  chapter. 
The  first  describes  how  to  bring  up  the  beacon  receivers,  the  second  discusses  how  to  configure  the 
beacon  display  software  for  desired  operation,  and  the  third  provides  troubleshooting  instructions 
should  there  be  any  problems. 

4.2  Beacon  Receiver  Start-Up  Procedures 

There  are  three  beacon  receivers  which  may  be  used  by  the  beacon  display  system.  They 
are  the  ComQuest  General  Purpose  Modem  (GPM),  the  Raytheon  Stand  Alone  Beacon  Receiver 
(SABR),  and  the  AN/ASC-30  Small  EHF/SHF  Terminal.  Some  familiarity  with  the  ASC-30  system 
is  assumed  in  the  start-up  procedures.  Specific  details  on  how  to  interconnect  and  configure  the 
ASC-30  is  provided  in  [1]. 

The  following  section  provides  itemized  procedure  lists  on  how  to  bring  up  the  beacon  receivers 
for  stand  alone  use,  or  for  use  as  a  RF  front  end  for  the  GPM. 

4-2.1  AN/ASC-30  Start-Up  This  section  describes  how  to  bring  up  the  ASC-30  for  use  in 
the  stand  alone  mode  of  operation.  The  section  on  the  GPM  start-up  describes  how  to  use  the 
ASC-30  as  the  front  end  for  the  GPM. 

The  minimum  configuration  of  the  system  consists  of  the  Frequency  Terminal  and  Control 
Unit  (FTCU),  a  SHF  receiver,  a  Remote  Control  Unit  (RCU)  or  RCU  emulator,  and  a  5  MHz 
reference.  The  following  list  describes  how  to  bring  up  the  ASC-30. 

1.  Interconnect  and  power  up  the  ASC-30  equipment. 
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2.  Load  the  FTCU  software. 


3.  To  save  time,  locate  the  SHF  antenna/LNA  equipment  where  the  desired  satellite  is  visible 
while  the  FTCU  is  loading. 

4.  Connect  the  SHF  antenna  to  the  LNA  input. 

5.  Connect  the  LNA  output  to  the  SHF  input  on  the  ASC-30  receiver. 

6.  Connect  one  SHF  receiver  70  MHz  high  level  output  to  the  FTCU  receive  IF  input. 

7.  Power  up  the  LNA. 

8.  Once  the  FTCU  software  is  loaded,  load  the  beacon  patch  (if  used  as  a  stand  alone),  and  the 
upgrade  receiver  patch  (if  using  an  upgrade  receiver). 

9.  Start  the  FTCU  software  (send  G1000). 

10.  Using  the  RCU  (or  emulator),  configure  the  ASC-30  as  listed  below. 

(a)  Acquisition  =  40. 

(b)  Noise  measurement  =  ON. 

(c)  Select  Beacon  Receiver  (Receiver  1  or  3). 

(d)  Receive  Frequency  =  7604.705. 

(e)  Receive  Offset  (RCDO)  =  882. 

(f)  Execute  the  configuration. 

(g)  Perform  an  acquisition  to  set  the  FTCU  Automatic  Gain  Control  (AGC). 

11.  Configure  the  spectrum  analyzer  as  shown  in  Table  15. 

12.  Connect  the  other  SHF  receiver  70  MHz  high  level  output  to  the  input  of  the  spectrum 
analyzer. 
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13.  Point  the  SHF  antenna  to  get  a  spectrum  analyzer  display  similar  to  the  one  shown  in  Fig¬ 
ure  23  with  the  signal  peak  8  to  10  dB  above  the  noise. 

14.  Perform  another  beacon  acquisition  and  the  RCU  display  should  indicate  the  FTCU  has 
acquired  and  phase-locked  to  the  beacon  signal. 

15.  The  70  MHz  connected  to  the  spectrum  analyzer  may  now  be  used  as  the  input  to  the  GPM 
(connector  J5). 


Figure  23.  ASC-30  Spectrum  Analyzer  Display 


Adjustment 

Center  Frequency 
Frequency  Span 
Resolution  Bandwidth 
Video  Bandwidth 
Scale 

Reference  Level 

70  MHz 

15  KHz 

1  KHz 

30  Hz 

2  DB/DIV 
-46  DBM 
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4-8.8  Raytheon  SABR  Start-  Up  This  section  presents  the  start-up  procedures  for  the  Raytheon 
Stand  Alone  Beacon  Receiver.  This  system  may  also  be  used  in  a  stand  alone  mode,  or  as  a  RF 
front  end  for  the  GPM. 

There  are  two  PC  programs  available  to  configure  the  Raytheon  system.  The  first  is  the 
Pascal  software  delivered  with  the  system  by  Raytheon.  The  second  is  software  embedded  in  the 
beacon  display  system.  If  the  Raytheon  system  is  going  to  be  used  as  an  RF  front  end  for  the  GPM, 
then  either  program  may  be  used.  If,  however,  the  system  will  be  used  as  a  stand  alone  to  feed 
data  to  the  display  software,  the  embedded  start  software  Ray  Start  in  the  display  system  must  be 
used.  This  is  required  because  the  receiver  control  information  is  sent  on  the  same  RS-232  link  as 
the  demodulated  beacon  data.  If  the  Raytheon  Pascal  software  is  used  to  bring  up  the  system,  a 
cable  change  to  another  machine  running  the  beacon  display  system  causes  the  receiver  to  lock  up. 

Following  are  the  instructions  which  detail  how  to  bring  up  the  Raytheon  beacon  receiver. 

1.  Connect  the  PC  COM1  port  to  the  beacon  receiver  RS-232  port  (Connector  J3  in  rear). 

2.  Power  up  both  the  PC  and  the  Raytheon  beacon  receiver. 

3.  Press  the  reset  switch  on  the  receiver  to  allow  the  10  MHz  reference  oscillator  to  warm  up 
and  stabilize. 

4.  Locate  the  SHF  antenna/LNA  assembly  where  the  desired  satellite  is  visible. 

5.  Cable  the  SHF  antenna  to  the  LNA  input. 

6.  Cable  the  LNA  output  to  the  receiver  SHF  input. 

7.  Power  up  the  LNA. 

8.  Bring  up  the  control  software  on  the  PC.  For  the  Raytheon  Pascal  program,  type  “SCT.MON”. 
For  the  embedded  control  software,  type  “SCT”  at  the  MS-DOS  prompt.  Select  the  Control 
option  and  enable  the  RAY  START  menu  item. 
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9.  Press  the  restart  switch  on  the  beacon  receiver  again.  The  control  software  should  be  dis¬ 
playing  the  receiver  self-test  procedures. 

10.  Select  satellite  “B”  when  self-test  is  complete. 

11.  Configure  the  spectrum  analyzer  as  shown  in  Table  15. 

12.  Connect  the  70IF  Test2  output  (BNC  connector  in  front)  to  the  spectrum  analyzer  input. 

13.  Adjust  the  analyzer  reference  level  to  center  the  display. 

14.  Point  the  SHF  antenna  to  get  a  spectrum  analyzer  display  similar  to  the  one  shown  in  Fig¬ 
ure  24. 


Figure  24.  Raytheon  Spectrum  Analyzer  Display 


Once  the  procedures  are  completed,  the  demodulator  (GPM  or  Raytheon)  should  acquire  and 
phase  lock  to  the  signal  within  10  minutes.  If  the  receiver  does  not  acquire,  reset  the  Raytheon 
system  to  repeat  the  self-test  and  start  up  procedures.  This  may  be  required  if  the  10  MHz  reference 
oscillator  has  not  stabilized. 
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4-2.3  GPM  The  GPM  is  a  demodulator  only  and  depends  on  external  equipment  to  provide 
the  beacon  signal  on  a  70  MHz  intermediate  frequency  (IF).  Both  the  ASC-30  and  the  Raytheon 
stand  alone  can  provide  the  input.  For  the  ASC-30,  the  required  70  MHz  is  available  at  the  SHF 
70  MHz  high  output  (pins  E  or  F  of  RF  connector).  The  Raytheon  70IF  Test2  BNC  connector  on 
the  front  panel  will  also  provide  the  required  signal  level.  The  desired  source  must  be  cabled  to  the 
GPM  RXIF  connector  (J5).  The  70  MHz  signal  must  be  similar  to  the  ones  shown  in  Figures  23 
and  24.  The  following  instructions  list  the  additional  steps  required  to  configure  the  GPM  for 
beacon  operation. 

1.  Bring  up  the  selected  RF  front  end  system. 

2.  Connect  the  70  MHz  receiver  output  to  the  GPM  RXIF  input,  connector  J5,  at  the  rear  of 
the  receiver. 

3.  Connect  the  PC  COM1  port  to  the  GPM  beacon  data  port,  connector  J6A  with  attached 
2-to-9  pin  adapter  cable. 

4.  Connect  the  PC  COM2  port  to  the  GPM  remote  host  RS-232  port,  connector  Jl. 

5.  Power  up  the  PC. 

6.  Type  “SCT”  at  the  MS-DOS  prompt  to  bring  up  the  beacon  display  system. 

7.  Select  the  Control  option  and  enable  the  GPM  Window  menu  item. 

8.  Power  up  the  GPM.  The  GPM  power  up  self-test  messages  should  now  be  appearing  on  the 
PC  screen. 

9.  Once  the  GPM  has  passed  self  test,  exit  the  GPM  window  screen  and  select  the  GPM  Start 
menu  item  under  the  Control  option.  The  software  will  now  send  the  proper  commands  to 
configure  the  GPM  for  beacon  operation. 

10.  Press  the  <  ESC  >  key  to  exit  the  options  menu. 
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The  GPM  should  now  acquire  (indicated  by  the  RXSYNC  light  on  the  front  panel)  and 
send  data  to  the  PC  for  display.  Once  the  display  system  is  receiving  data,  the  software  can  be 
reconfigured  for  desired  operation. 

4-3  Beacon  Display  System  Control 

This  section  describes  how  to  get  the  display  system  software  into  the  desired  configuration. 

4-3.1  Receiver  The  user  must  tell  the  software  which  receiver  is  going  to  provide  the  beacon 
data  to  be  displayed.  Each  receiver  has  specific  hardware  and  software  interfaces  to  the  PC. 

4-3. 1.1  GPM  The  display  system  defaults  to  GPM  as  the  beacon  receiver.  COMl 
must  be  connected  to  the  GPM  beacon  data  port.  COM2  must  be  connected  to  the  GPM  remote 
host  port  if  the  Control  menu  items  will  be  used.  The  GPM  must  also  be  interfaced  to  a  70  MHz 
IF  provided  by  the  ASC-30  or  Raytheon  systems.  Once  all  connections  have  been  made,  select  the 
GPM  entry  from  the  Receiver  options  menu. 

4-3. 1.2  Raytheon  To  use  the  Raytheon  beacon  receiver  as  the  source  of  beacon  data, 
the  PC  COMl  port  must  be  connected  to  the  control  port  of  the  beacon  receiver.  The  Raytheon 
system  must  have  acquired  the  beacon  signal  before  it  will  send  data  to  the  PC.  Acquisition  is 
indicated  by  the  ACQ  light  on  the  receiver  front  panel.  Once  the  ACQ  light  is  on,  select  the 
Raytheon  item  under  the  Receiver  option  and  the  display  system  will  display  the  data  sent  by  the 
Raytheon  beacon  receiver. 

4-3. 1.3  ASC-30  To  use  the  ASC-30,  the  beacon  data  and  clock  signals  from  the  beacon 
receiver  must  be  level-shifted  from  RS-232  levels  to  TTL  levels.  An  MC  1489  line  receiver  installed 
in  the  SABR  DAC  interface  provides  the  level  shifting.  The  converted  signals  must  be  connected 
to  a  DIO-24  parallel  input  card  developed  by  Industrial  Computer  Source  [12].  Table  16  shows  the 
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pins  used  on  the  card  and  the  SABR  DAC  interface  9-pin  male  connector.  The  PIO  card  shares 
the  COM2  interrupt,  therefore,  the  ASC-30  interface  cannot  be  used  as  the  beacon  receiver  for 
remoting  purposes. 

Once  all  interface  requirements  are  met,  the  ASC-30  can  be  powered  up  and  configured  for 
beacon  use.  The  FTCU  must  acquire  and  phase  lock  to  the  signal  before  proper  data  is  sent  to  the 
PC  interface.  The  user  selects  the  ASC-30  menu  item  to  tell  the  display  system  the  ASC-30  will 
be  sending  the  data  to  the  PC. 


Table  16.  DIO-24  Pins  Used 


DIO-24  Pin 

SABR  DAC  9-Pin  (Male) 

Signal  Name 

37 

1 

800  BPS  Data 

1 

2 

Beacon  Clock 

19 

7 

Ground 

1  wired  to  20 

INT  Enable  Jumper 

4-3.2  IRIG  The  display  has  the  capability  of  presenting  the  difference  between  the  decoded 
beacon  clock  and  a  local  IRIG  B  time  standard.  To  enable  the  IRIG  mode,  the  PC  must  have 
a  Bancomm  630 AT  time  card  installed  [13].  The  card  must  be  cabled  to  a  local  IRIG  B  time 
reference.  Recommended  is  a  GPS  satellite  clock,  or  the  DATUM  Model  9815  rubidium  portable 
clock.  Table  7  in  Chapter  III  shows  the  required  configuration  of  the  card  for  proper  interrupt 
operation.  To  use  the  installed  card,  select  the  IRIG  menu  item  under  the  Time  option.  The 
display  system  will  begin  to  display  the  difference  between  the  IRIG  B  1  PPS  interrupt  and  the 
most  recent  decoded  beacon  cloc!.  time.  The  resolution  is  in  seconds. 

NOTE!! 


This  time  difference  is  dependent  on  the  beacon  receiver  used.  When  the  GPM  is  used, 
the  displayed  difference  is  5  seconds  if  the  SCT  is  “on  time”.  “On  time”  is  defined 
to  be  when  the  Command  Post  Modem/Processor  can  command  the  SCT  when  set  to 
IRIG  system  time.  For  the  Raytheon  and  ASC-30  receivers,  the  displayed  difference  is 
2  seconds. 
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4-S.S  Remoting 


4.S.S.1  Remote  Location  To  successfully  remote  the  SCT  beacon  display,  the  remote 
site  must  have  a  copy  of  the  SCT.EXE  program,  a  PC  to  run  it  on,  a  phone,  and  a  Hayes-compatible 
modem.  Recommended  is  the  ZOOM  model  FX9624  modem.  The  modem  must  be  connected  to 
COM1  of  the  PC  and  the  phone  line. 

To  bring  up  the  remote  slave  software,  the  user  types  SCT  REMOTE  at  the  MS-DOS 
prompt,  or  selects  the  Start  Remote  Slave  selection  under  the  Remote  option  if  the  display  system 
is  already  running.  The  software  initializes  the  modem  and  instructs  it  to  auto-answer  the  phone. 
The  auio-answer  mode  will  be  indicated  by  the  lighted  AA  indication  on  the  front  of  the  ZOOM 
modem.  The  software  then  waits  for  the  master  to  call.  When  the  phone  rings,  the  software 
will  answer  the  phone,  provide  synchronization  information  to  the  master  software  running  at  the 
beacon  receiver  location,  and  then  display  the  beacon  data  to  the  PC  screen  as  it  is  relayed  by 
the  master  software.  Both  the  remote  and  beacon  receiver  locations  display  the  SCT  configuration 
once  contact  and  synchronization  has  occurred. 

To  stop  the  remote  slave  software,  select  the  Stop  Remote  Slave  item  under  the  Remote 
options  menu. 

4-S.S. 2  Beacon  Receiver  Location  To  remote  the  beacon  display  running  at  the  beacon 
receiver  location,  the  display  system  must  be  connected  to  a  beacon  receiver  and  displaying  the  SCT 
configuration.  COM2  of  the  PC  must  be  connected  to  a  Hayes-compatible  modem.  Recommended 
is  a  ZOOM  model  FX9624  or  CTS  DATACOM  model  2424ADH  modem.  The  remote  slave  software 
must  be  waiting  for  the  master  software  to  call  for  proper  synchronization  to  occur.  To  initiate  the 
remote  master  call,  the  user  presses  <  FI  >  to  pop-up  the  options  menu,  and  then  selects  the  Start 
Remote  Master  item  under  the  Remote  option.  The  software  initializes  the  modem,  prompts  the 
user  for  a  phone  number,  and  then  has  the  modem  dial  the  number.  Once  the  remote  slave  software 
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has  answered  the  phone  and  a  carrier  is  detected,  the  master  and  slave  software  synchronize  and 
return  to  the  decode  and  display  software.  The  master  software  now  relays  the  beacon  data  to  the 
slave  site  as  it  continues  to  display  the  beacon  configuration. 

To  stop  the  master  software,  the  user  again  presses  <  FI  >  to  bring  up  the  options  menu. 
The  Stop  Remote  Master  under  the  Remote  menu  item  tells  the  software  to  hang  up  the  modem 
and  return  to  the  decode  and  display  software. 

4-3. 4  Logging  The  beacon  display  software  is  designed  to  copy  the  configuration  shown  on 
the  PC  screen  to  the  attached  printer  or  to  the  currently  active  disk  drive.  The  names  of  the  saved 
files  correspond  to  the  day,  hour,  and  minute  of  the  captured  screen  with  a  .cap  extension. 

Three  triggers  are  available  for  both  the  printer  and  disk.  The  first  is  a  user  trigger  accessed 
by  pressing  the  <  F 2  >  key  for  an  immediate  print  capture,  or  <  F4  >  for  disk  capture.  The 
second  trigger  is  a  watchdog  timer  enabled  by  selecting  the  timed  print  or  timed  disk  items  under 
'he  Log  option  of  the  main  menu.  The  user  can  select  from  1  to  120  minutes  between  prints  or 
disk  saves.  To  disable  the  timed  captures,  the  user  toggles  the  enabled  selections  by  selecting  them 
again.  The  final  trigger  is  enabled  by  selecting  the  Trigger  Print  and/or  Trigger  Disk  items  under 
the  Log  menu.  These  triggers  item  will  capture  a  beacon  screen  (if  enabled)  when  the  command 
accept  bit  of  the  decoded  beacon  display  is  toggled  to  TRUE. 

The  only  requirements  to  operate  the  logging  modes  are  that  the  printer  be  connected  and 
on-line  (with  paper  installed),  and  there  is  room  on  the  logged  disk  for  MS-DOS  to  write  the 
captured  data.  Unpredictable  results  occur  when  MS-DOS  cannot  write  the  beacon  data  to  the 
disk  (usually  a  program  crash). 
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4-4  Troubleshooting 


Tables  17  and  18  list  possible  problems  which  may  be  encountered  when  bringing  up  the 
SCT  beacon  display  system.  The  tables  show  a  symptom,  list  a  possible  cause  or  causes,  then 
recommends  a  solution  to  solve  the  problem. 

4-5  Summary 

This  chapter  summarizes  the  information  required  to  bring  up  and  configure  the  beacon 
receivers  and  beacon  display  system  for  desired  operation.  Included  were  discussions  on  the  beacon 
receivers  themselves,  and  how  to  enable  the  various  options  and  modes  provided  by  the  SCT  beacon 
display  system.  Also  provided  was  a  troubleshooting  guide  should  start-up  problems  occur. 
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Table  17.  Troubleshooting  Guide 


Symptom 


No  RXSYNC  indication. 


GPM 

Cause 

Solution 

Improper  GPM  Configuration. 

Using  the  GPM  window,  initial¬ 
ize  the  GPM  (IN  command).  Us¬ 
ing  the  GPM  Start  option,  put 
GPM  into  beacon  mode. 

GPM  Contro 
Response. 


I 


nsumcient 


Improper  Cabling. 


Ensure  GPM  remote  host  connec¬ 
tor^  1)  is  cabled  to  PC  COM2. 
Insert  a  null-modem  to  check  for 
proper  DCE/DTE  connections. 
Use  the  GPM  front  panel  con¬ 
trols  to  check  handshaking  set¬ 
tings.  Proper  settings  are  shown 
in  Table  19. 


No  Response  in  Ray 
Start  Window. 


ndication. 


Raytheon 


Improper  Cabling. 


Ensure  Raytheon  PC  connec¬ 
tor  (J3)  is  cabled  to  the  PC 
COMl  port.  Insert  a  null-modem 
to  check  for  proper  DCE/DTC 
connections. 


Ensure  the  70  MHz  test  signal 
looks  like  Figure  24.  Reset  bea¬ 
con  receiver  and  perform  self-test 
and  startup  again. 


ASC-30 


No  Phase  Lock  on  RCU 
Screen. 


Display  system  cannot 
find  sync  bit. 


Improper  Setup. 

Check  ASC-30  cabling,  then  re¬ 
load  the  FTCU  and  re-acquire 

Poor  Reference. 

Check  5MHz  ASC-30  reference 
for  proper  levels. 

Insufficient  IF  signal. 

Ensure  the  70  MHz  IF  looks  like 
Figure  23. 

Improper  cabling 

Check  level  shifter  and  connec¬ 
tions.  Use  oscilloscope  to  ensure 
the  TTL  level  data  and  clock  are 
getting  to  the  PIO  card  in  the 
PC. 

PIO  HW  Settings. 

Check  PIO  DIP  switch  settings 
to  see  if  they  match  the  require¬ 
ments  shown  in  Table  20. 
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Symptom 


Table  18.  Troubleshooting  Guide  (Continued) 


Cause  Solution 


IRIG 


Card  initialization  error. 


Car 

initializes,  but  no  beacon 
clock  offset  display. 


IRIG  HW  Settings. 


Check  IRIG  card  DIP  switch  set¬ 
tings  to  see  if  they  match  the  re¬ 
quirements  shown  in  Table  20. 


Turn  off  the  PC  for  at  least  one 
minute  to  reset  the  IRIG  card. 


Unwanted  characters  on 
screen. 


Beacon  Display 


Display  Software. 


Press  <  FI  >  then  <  ESC  >  to 
redraw  the  beacon  screen. 


Remote 


Cannot  configure  Hayes- 
compatible  modem. 


Cabling. 

Must  be  Hayes  compil¬ 

able  modems.  Ensure  COM1  is 
connected  to  the  modem  for  the 
remote  site,  COM2  for  the  local 
site.  Also  check  the  modems  for 
connections  to  the  phone  lines. 

o  Site  Synchronization. 

Use  the  ZOOM  modems  at  both 
locations,  or  use  the  CTS  DATA- 
COM  at  the  master  location  with 
a  ZOOM  at  the  slave. 

Table  19.  GPM  Interface  Settings 


Port 


Coml 

Com2 


Data 

Parity 

Stop 

7  Bit 

7  Bit 

Odd 

Odd 

0  Bits 

0  Bits 

Table  20.  PC  Interface  Card  Summary 


Card 

IRQ 

Interrupt 

Vector 

IRQ4 

0x3F8-3FF 

0x30-33 

0x2F8-2FF 

KB 

0x2C-2F 

PIO 

ImBeI 

0x2F8-2FF 

KB 

0x2C-2F 

LPT1 

IRQ7 

0x370-37F 

KB 

0x3C-3F 

IRIG 

IRQ5 

0x320-32F 

HvM 

0x34-37 
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V.  Conclusion 


5.1  Summary 

This  thesis  provides  a  SCT  beacon  telemetry  display  system  for  the  General  Purpose  Modem. 
The  system  is  hosted  on  an  IBM  compatible  personal  computer.  In  addition  to  the  basic  beacon 
display,  the  following  capabilities  were  implemented. 

•  System  interfaced  to  the  Raytheon  Stand  Alone  Beacon  Receiver. 

•  System  interfaced  to  the  AN/ASC-30  Small  EHF/SHF  Terminal. 

•  Capability  to  remote  the  display  to  another  location. 

•  Capability  to  determine  the  SCT  clock  offset  from  an  IRIG  UTC  source. 

•  SCT  configuration  display  recording  capability. 

•  User  selected  satellite  name. 

The  required  hardware  was  specified,  procured,  and  installed.  Software  was  developed  in  C 
using  Borland’s  Turbo  C++  Professional  development  system. 

5.S  Conclusions 

The  primary  goal  of  this  thesis  effort  was  to  provide  additional  capability  for  the  SATCOM 
Group  of  the  Wright  Laboratory  when  using  the  single  channel  transponder.  It  is  believed  the 
effort  has  been  successful.  The  system  provides  improved  SCT  configuration  documentation  over 
current  capability  through  the  logging  modes.  It  also  provides  a  means  of  determining  the  SCT 
clock  offset  using  the  IRIG  system  timer  without  having  to  command  the  satellite.  In  addition,  the 
system  can  be  run  on  any  properly  configured  IBM  compatible  personal  computer.  This  removes 
the  dependence  on  an  aging,  one-of-a-kind,  SCT  terminal  for  obtaining  a  SCT  configuration.  The 
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final  enhancement  is  the  ability  to  remote  the  SCT  display  to  another  location.  Based  on  experience 
with  the  SATCOM  Group,  this  may  prove  to  be  a  most  useful  feature. 

5.3  Recommendations 

5.3.1  SCT  Monitor  System  Significant  additional  software  could  be  added  to  allow  remote 
control  of  the  entire  system  to  include  pointing  the  antenna,  remote  start-up  of  the  beacon  re¬ 
ceivers,  and  remote  upload  of  the  beacon  configuration.  With  the  enhancements,  the  system  could 
automatically  come  up  and  capture  a  beacon  configuration  unattended  and  on  a  regular  basis.  This 
would  be  useful  for  long-term  tracking  of  SCT  information  such  as  SCT  clock  drift. 

5.3.2  IRIG  The  current  SCT  beacon  clock  offset  calculation  resolution  is  only  to  the  nearest 
second.  The  IRIG  card  can  provide  accuracy  down  to  microseconds.  A  special  beacon  clock  offset 
mode  could  be  added  which  would  do  nothing  but  decode  the  beacon  telemetry  clock  bits  and 
determine  a  more  accurate  time  offset  from  UTC.  Measurements  using  the  CPM/P  as  a  reference 
terminal  could  quantify  the  processing  delays  of  the  beacon  receiver  and  PC  code.  With  these 
measurements,  the  resolution  of  the  offset  measurement  to  be  reduced  to  milliseconds. 

5.3.3  Remote  The  remoting  software  could  be  enhanced  to  allow  the  remote  slave  to  call 
the  master  when  it  is  running.  This  would  allow  a  user  to  set  up  the  beacon  receiver  and  display 
system  at  one  location,  then  go  to  the  remote  location  and  bring  up  the  slave  without  an  operator 
at  the  bea«.on  receiver.  In  addition,  support  could  be  added  to  remote  the  display  over  a  satellite 
link  as  well  as  the  phone  link.  This  would  allow  the  beacon  display  to  be  remoted  to  the  SATCOM 
airborne  testbed  while  it  is  in  flight. 

5.3.4  Additional  COM  Ports  The  PORT.C  software  could  be  modified  to  allow  more  COM 
ports  (COM3,  COM4,  etc).  This  would  allow  the  remote  and  GPM  control  functions  to  operate 
at  the  same  time  and  eliminate  cable  changes.  Additional  ports  would  allow  the  addition  of  mouse 
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driver  software  so  the  menu  system  could  use  the  mouse  as  well  as  the  keyboard  to  select  user 
options,  remote  control  of  the  ASC-30,  and  even  control  of  an  antenna  pointing  system. 

5.5.5  Modem  Software  The  remote  slave  software  is  not  able  to  take  the  modem  out  of  the 
auto-answer  mode  unless  the  master  hangs  up  first.  Research  into  the  modem  control  strings  may 
yield  a  solution  to  the  problem. 

5.3.6  File  Software  The  file  logging  software  could  be  enhanced  to  ensure  the  system  does 
not  crash  when  MS-DOS  cannot  write  the  captured  screen  to  the  disk. 

5.3.7  MS-DOS  Timer  A  set  time  function  could  be  added  to  the  MS-DOS  timer  software. 
The  DOS  timer  tends  to  be  significantly  different  from  UTC  time.  The  user  can  set  the  time  using 
the  DOS  utility,  but  an  integrated  function  in  the  display  software  would  allow  the  user  to  set  the 
time  without  exiting  the  program. 

5.4  Lessons  Learned 

There  are  two  lessons  to  be  passed  on.  The  first  is  that  if  a  thesis  topic  appears  to  be  a 
software  development  thesis,  then  take  the  software  engineering  classes  BEFORE  completing  the 
project.  The  object-oriented  software  engineering  paradigm  taught  at  AFIT  forces  more  up-front 
design  before  coding  is  started.  This  thesis  would  have  benefited  from  better  system  design  effort 
at  the  start  of  the  project. 

The  other  lesson  is  to  start  the  actual  thesis  writing  while  the  work  is  in  progress.  It  is  painful 
to  recall  all  the  work  done  at  the  early  states  of  the  project,  and  key  development  details  may  not 
be  lost!  It  also  makes  the  writing  part  of  the  thesis  easier. 
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Appendix  A.  List  of  Acronyms 


AFIT 

AGC 

BPS 

BPSK 

CPM/P 

CPU 

DOD 

DSCS 

EAM 

EHF 

FET 

FTCU 

GPM 

IF 

IRIG 

IRQ 

LNA 

LSB 

MSB 

PC 

PIO 

PPS 

PRN 

PSK 

QPSK 

RF 

SABR 

SATCOM 

SCT 

SHF 

TTL 

TT&C 

UART 

UHF 

UTC 


Air  Force  Institute  of  Technology 

Automatic  Gain  Control 

Bits-Per-Second 

Binary  Phase-Shift-Key 

Command  Post  Modem/Processor 

Central  Processing  Unit 

Department  of  Defense 

Defense  Satellite  Communications  System 

Emergency  Action  Message 

Extremely  High  Frequency 

Field  Effect  Transistor 

Frequency  Terminal  and  Control  Unit 

General  Purpose  Modem 

Intermediate  Frequency 

Inter-Range  Instrumentation  Group 

Interrupt  Request 

Low  Noise  Amplifier 

Least  Significant  Bit  (or  Byte) 

Most  Significant  Bit  (or  Byte) 

Personal  Computer 

Parallel  Input/Output 

Pulse- Per-Second 

Pseudo- Random  noise 

Phase-Shift-Key 

Quadrature  Phase-Shift-Key 

Radio  Frequency 

Stand  Alone  Beacon  Receiver 

Satellite  Communications 

Single  Channel  Transponder 

Super  High  Frequency 

TVansistor-Transistor- Logic 

Telemetry,  Tracking  and  Control 

Universal  Asynchronous  Receiver  Transmitter 

Ultra  High  Frequency 

Universal  Time  Coordinates 
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Appendix  B.  Source  Code 

/*  **************************************************** 

*  File  :  &>c30.c 

*  by  Jim  Coppola 

*  01  Fab  92 

*  updated  on  23  Jul  92 

*  by  Jin  Coppola 

a  vara Ion  2.0 


Deacription:  Functions  which  implement  the  interlace  to  the 
AI/ASC-30.  Uaea  the  PIO  card  installed  in  a  PC.  See  PlO.h  lor 
the  address  and  interrupt  used  to  interlace  to  the  card.  Program 
geta  the  bits  Irom  the  ASC-30  interlace,  Irames  them  up  into  the 
global  array  data  lor  display,  then  displays  the  clock  and  data 
using  the  screen. c  routines.  Program  quits  when  restart  is  set  to 
TRUE. 


*  Global  Variables  Used  :  update,  restart,  data,  index 

*  Global  Variables  Changed  :  update,  data,  index 

* 

*****************************************************  */ 

•include  <dos.h> 

•include  <stdio.h> 

•include  "system. h" 

•include  "pio.h" 

int  previous  =  0; 
int  dill  *  FALSE; 
int  invert  *  FALSE; 
int  bits [8] ; 
int  notice.up  =  FALSE; 

/*****lunction  to  get  next  bit  Irom  the  PIO  interlace*****/ 
int  get.nextQ 

int  ret,  temp; 

ret  *  getbitO  A  0x01; 

il(timed_out(parallel_timer))  {  /*****put  notice  up  ol  no  data*****/ 

il( ! notice.up) { 

my_notice("Io  Data  Irom  ASC-30!!!"); 
notice.up  =  TRUE; 
update  =  FALSE; 

> 

else  { 

il (restart  AA  notice.up)  { 
close.vindovO ; 
notice.up  =  FALSE; 
update  -  TRUE; 
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if (notice_up){ 
close_window() ; 
notice_up  =  FALSE; 
update  »  TRUE; 

> 

> 

if (invert)  /****if  asc30  locked  inverted,  invert  data*****/ 

{ 

if (ret  **  1) 
ret  *  0; 

else 

ret  *  1; 

} 

if(diff)  /*****if  asc30  jumpered  to  put  out  differencial  data*****/ 

< 

temp  *  ret; 
if (previous  ==  temp) 
ret  *  1; 

else 

ret  =  0; 

previous  *  temp; 

> 

return(ret) ; 

> 

/*****debug  get  next  bit  routine.  Used  to  debug  proglems  with  interface****/ 
int  debug_next ( void) 

int  ret,  temp; 

ret  *  getbitO; 
ret  *  ret  k  0x01; 
return  ret; 


/«e***actual  debug  routine.  Used  to  watch  tor  the  bit  sequences 
as  defined  by  the  set  spec*****/ 
void  debugO 

int  found, next, count, data_in[8] ,il, sequence; 
char  temp; 


found  =  FALSE; 
count  *  0; 
sequence  =  24; 


restore_keyboard() ;  /*****take  my  keyboard  isr  out  oi  way*****/ 
while  (  Hound) 

{ 


for(il*0;il<8;il++) 

{ 

data_in[il]  *  debug.next ( ) ; 
if(il  **  0) 

print! ("Xd"fdata_inCil] ) ; 

> 

count** ; 

if (count  >  sequence) 

{ 

count  *  0; 
print! ("\n") ; 

> 

ii(bioskey(l)) 

temp  *  bioskey(O); 
iiCtemp  **  ’q') 

!inish() ; 

iKtemp  **  ’g’) 
found  *  TRUE; 

if (temp  ==  's’) 

l 

if (sequence  <  30) 
sequence**; 
sequence** ; 

> 

else 

{ 

print! ("**shilt**\n") ; 
temp  *  debug_next ( ) ; 

> 

> 

> 

intercept_keyboard() ; 


/♦♦♦•♦function  to  synchronize  the  code  to  the  eighth  bit  in 

input  ******/ 

void  f ind_sync(void) 

int  il, found, shift_count,hit_count,data_in[8]  ,temp,sync; 

found  *  FALSE; 
shift_count=hit_count  =  0; 
sync  *  0; 

while ( tfound) 
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if (restart)  /*****if  restart,  gat  out  now*****/ 
bra&k; 

for(il=0; il<8; il++) 

data_in[il)  =  get_next(); 

if (data, in[0]  ==  sync) 
hit_count++; 

ala  a 

{ 

hit.count  =  0; 
shif t_count++ ; 
if (shift .count  >=  8) 

if (sync  ==  0) 

( 

sync  *  1; 
shift.count  =  0; 

> 

alsa  { 

/*****check  for  timeout  here*****/ 
sync  *  0; 
shift.count  *  0; 

> 

> 

tamp  *  get.next () ; 

tamp++;  /***♦* just  to  gat  rid  of  compiler  warning*****/ 

> 

if (hit.count  >  32)  /*****if  32  hits,  wa  have  found  it!!*/ 

found  *  TRUE; 

> 

if (sync  **1) 
invert  *  TRUE; 

alsa 

invert  =  FALSE; 


/*****function  to  load  8  bits  from  the  pio.  Function  assumes  the  find 
sync  routine  has  put  the  sync  bit  as  bit  0  in  the  sequence*****/ 
void  load_data() 

{ 

int  il; 

for(il=0;il<8;il++)  { 
if (restart) 
break; 

bitsCil]  =  get_next(); 

> 

> 

/•****f unction  to  search  for  message  sync.  Assumes  bit  sync  has  occured. 
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Looka  lor  6  ones  in  a  row  irom  sequences  2  and  5  as  delined  by  the 
SCT  spec*****/ 
int  ones.searchQ 
{ 

/♦♦♦♦♦need  to  include  some  sort  ol  resync  try  alter  8  seconds  ***♦/ 
int  lound,  counter; 

lound  =  FALSE; 
counter  =  0; 

load. data O ; 
load.dat a() ; 
while ( ! lound) 

{ 

il (restart) 
break; 

load.dataQ ; 
il(bits[0]  !=  0) 
return  FALSE; 

il((bits[l]  ■■  1)  kk  (bitsCB]  ==  1)) 
count er++; 

else 

counter  =  0; 

il (counter  >  4) 
lound  =  TRUE; 

> 

return  TRUE; 


/♦♦♦♦♦function  when  system  is  in  sync;  loads  the  100  bits*****/ 
int  load.bitsO 
{ 

int  il,  error,  synched,  Irame,  Iramesync; 
int  Irame.bits [6] ; 

error  =  index  =  Irame  =  0; 
synched  =  TRUE; 

while (synched) 

il (restart) 
break; 

dataCindex]  =  bits [7]  *  bits [3]; 
index  ++; 

il (index  ==  49)  /*****have  clock  data,  display  it*****/ 

display.clockO ; 
il( index  >=  100) 

{ 

display _data() ;  /*****have  data,  display  it*****/ 
index  *  0; 
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> 


load_data() ; 
frame++ ; 

if (frame  >  194)  /*****Code  to  check  frame  sync.  Hot  implemented  yet*/ 

frame_bits [frame-194]  =  bits[l]; 

load_data() ; 
frame++ ; 

if (frame  >  194)  { 

frame_bits [frame-194]  =  bits[l]; 
if (frame  >=  199)  { 
frame  =  0; 
framesync  =  0; 
for(il=0; il<5; il++)  { 
if ( !frame_bits [il] ) 
framesync++; 

> 

if (framesync  >1) 

synched  =  TRUE;  /****• changed  to  get  to  ran*****/ 

> 

> 

if (bits [0]  !=  0)  /*****only  sync  check  here.  Ho  message  sync  check****/ 

< 

error++ ; 
if (error  >  1) 
synched  =  FALSE; 

> 

else 

error  =  0; 

> 

return  TRUE; 


/*****procdure  to  capture  actual  beacon  data  to  disk.  Used  for  ComQuest 
to  debug  the  GPM.  Left  for  future  use  if  needed*****/ 
void  capture_data() 

int  dat [20000] , il ,  char_in; 

FILE  *fp; 

fp  *  f openC'beacon.dat" , "w") ;  /*****N0TE:  fixed  file  name!!!!!*****/ 

for(il*0;il<20000;il++) 

< 

char _ in  =  get_next(); 

//  printf (’"/,d" ,  char_in);  /***commented  out  for  proper  disk  operation*/ 
dat[il]  =  char.in; 

> 

for(il=0; il<20000; il++) 
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fprintf  (fp,"'/,d",  dat[il]); 

> 

fclose(fp) ; 

> 

/*****main  routine  in  this  file.  Sets  up  package  variables  and  tracks 
progress  in  synchronization  process.  Displays  user  interfaces.  This 
routine  is  called  from  main  vhen  the  receiver  selected  is  the  ASC-30*****/ 
void  asc30() 

int  go .error; 
setportinC) ; 
initport ( ) ; 
go  =  TRUE; 
shile(go) 

< 

invert  =  FALSE; 

if (restart)  /*♦***! f  restart,  return  to  main*****/ 

break; 

update  =  FALSE; 
notice.up  =  FALSE; 

//  debugO;  /*****if  you  like  to  degub,  uncomment*****/ 

my_notice( "Looking  for  Sync  Bit"); 
find_sync() ; 
close_vindov() ; 

my_notice("Looking  for  Message  Sync"); 

go  *  ones_search() ; 

close.vindouC) ; 

update  =  TRUE; 

go  =  load.bitsO; 

> 

> 
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/***************************************************** 
♦File  :  control. c 

♦By  :  Jim  Coppola 

*  :  24  Sap  92 

*  :  Version  1.0 

♦Update: 

♦By 

* 

♦Description:  Fuctions  to  talk  to  the  beacon  receivers 

♦ 

♦  Global  Variables  Used  :  com 

♦  Global  Variables  Changed  :  None 

♦ 

******************************************************/ 

# in elude  <conio.h> 

•include  <stdio.h> 

•include  "system. h" 

•include  "keys.h" 

•include  "port.h" 


int  wait .for.prompt (void) 

{ 

char  char_in; 
unsigned  port; 

port  =  gpm_control_port ; 

tor(; ;)  { 

char.in  =  get _char (port) ; 
putch(char_in) ; 
ii (char.in  ==  *>') 
return  TRUE; 
it (timed. out (port) ) 
return  FALSE; 

> 

> 

void  control_out(char  estring.in) 

char  char.out,  char. in; 
unsigned  port  =  gpm.control.port ; 
int  temp; 

char.out  =  ♦(string.in) ; 
while (char.out  !=  0)  { 
put.cnar (port , char.out) ; 
string_in++; 

char. in  =  get.char(port) ; 


put ch( char. in) ; 
char.out  =  *(string_in) ; 

> 

char.out  =  CR; 

put .char (port , char.out) ; 

tamp  *  sait_for_prompt() ; 

tamp++;  /*just  to  gat  rid  of  compiler  warning*/ 


int  gpm.start(void) 

{ 

int  il,  found,  test; 
unsigned  com; 
char  char. out,  char.in; 
char  command 1  □  =  {"RM  0">; 
char  command2[]  =  {"RR  3200"}; 
char  command3Q  =  {"DD  0">; 
char  command4Q  =  {"SD  0">; 
char  commands []  =  {"RC  0“>; 
char  commands  □  =  {"DMD  4"}; 
char  command7[]  =  {"GRC  0">; 
char  commands []  =  {"GKO  4">; 

com  *  gpm_control_port ; 
openport(com,1200,7,l,0) ; 

open.window ( 1 0 , 5 , 70 . 20 , WHITE , BLACK , 2 , 0 ) ; 
gotoxy(l.l) ; 

found  =  FALSE; 
char.out  =  CR; 
for(il=0;il<3;il++)  -C 
put _ char ( com ,  char. out ) ; 
test  =  wait.for.promptO ; 
if (test)  { 
found  =  TRUE; 
il  =  4; 

> 

> 

if (! found)  { 

error_message("Bad  Link  To  GPM") ; 
dose.windowO ; 
return  FALSE; 

> 

clear.serial.queue(com) ; 
char.out  »  CR; 
put_char(com,char_out) ; 
test  *  wait_for_prompt() ; 
control.out (commandl) ; 
control_out(command2) ; 
control.out (command3) ; 
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control_out(command4) ; 
control_out( commands) ; 
control_out(command6) ; 
control_out(command7) ; 
control.out (command8) ; 
set_timer(0,3) ; 
while ( !timed_out(0)); 
doie.windowQ ; 
return  TRUE; 

> 

void  gpm_control(void) 

unsigned  com; 

char  char _ in,  char.out; 

com  *  gpm.control.port ; 
openport ( com , 1200 , 7 , 1 , 0 ) ; 

open_vindos ( IS , 2 , 65 .4 , RED , LIGHTGRAY ,1,0); 
cputs("  Hit  <ESC>  To  quit  GPM  Command  Window"); 

open.window (10 ,6,70,20, WHITE , BLACK, 2,0); 
gotoxy(l.l); 

clear_serial_queue(com) ; 
char.out  =  CR; 
put. char(com, char.out) ; 
char.out  =  0; 
while  (char. out  .'=  ESC)  { 
if (char.rdy(com))  { 

char. in  =  get.char (com) ; 
putch(char.in) ; 

> 

if (bioskey(l))  { 

char.out  =  bioskey(O); 
put_char(com, char.out) ; 

> 

> 

dose.windowO ; 
dose.windowO ; 


void  setafreq(void) 

i 

unsigned  com; 

com  *  beacon.port; 

put .char (com, 0x24) ; 
put .char (com, 0x00) ; 
put.char(com.OxlO) ; 
put. char (com, OxlB) ; 
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> 

void  setbfreq(void) 

{ 

unsigned  com; 
char  char _ out ; 

com  *  beacon.port; 

clear.xmit.queue(com) ; 
put.char (com, 0x42) ; 
put _char ( com , OxlE) ; 
put _ char ( com, 0x6E) ; 
put_char(com,OxlB) ; 

> 

/♦★♦♦♦procedure  to  compute  and  send  the  frequency  offset  to 
the  raytheon  beacon  receiver.  Code  was  converted  from  the 
Pascal  code  for  the  beacon  receiver.  ♦♦♦♦♦/ 
void  offset_compute(int  offset) 

int  freq.op,  local_off set ; 
int  byte 1 , byt e2 , byt e3 , by t e4 , byt e5 ; 
float  foffset,  k,  temp_ls,  temp.ms; 
unsigned  com,  offset.lou,  offset.high; 

com  *  beacon.port; 

k  =  781.25;  /♦♦  see  pascal  source  codeaa/ 
if (offset  >  0) 
freq.op  *  0x00; 

else 

freq.op  *  0x10; 

local.offset  *  absfoff set)/64; 
foffset  a  (float)  local.offset; 
offset.high*  (unsigned)  (foffset/k); 
temp.ms  a  foffset/k; 

temp.ls  =  temp.ms  -  (float)  offset.high; 
offset.lou  *  (unsigned)  (temp.ls  ♦  65536); 

bytel  =  freq.op; 
byte2  *  offset.lou  k  OxFF; 
byte3  =  offset.lou  »  8; 
byte4  =  offset.high  t  OxFF; 
byte5  »  offset.high  »  8; 

put_char(com, bytel) ; 
put_char(com,byte2) ; 
put_char(com,byte3) ; 
put_char(com,byte4) ; 


79 


put_char(com, bytes) ; 

> 

void  ray.start(void) 

{ 

int  il ,  notice_up,  quit; 
unsigned  com; 

char  char _ in,  char.out ,  key _ in; 
char  complete □  *  {"COMPLETE"}; 

com  *  beacon.port; 
openport ( com , 9600 ,8,0,1); 

open_window(13 , 2 , 67 ,4 , RED , LIGHTGRAY .1,0); 

cputeC'Hit  <ESC>  To  Quit  Raytheon  Stand  Alone  Start  Window") 
open.window ( 1 ,  S ,  80 , 23 ,  WHITE ,  BUCK ,  2 , 0 ) ; 
gotoxy(l , 1) ; 

clear.serial.queue(com) ; 

my_notice("Please  Press  RESET  On  Raytheon  Stand  Alone"); 
notice.up  =  TRUE; 
char_out  =  0; 
il  •  0; 

while ((char_out  !=  ESC))  { 
if(char_rdy(com))  { 
if (notice.up)  { 
dose.windowO  ; 
notice.up  *  FALSE; 

> 

char.in  *  get_char(com) ; 

putch(char_in) ; 

if(char_in  ==  complete [il])  { 

il++; 

if (il  >=  7) 
break; 

> 

else 

il  *  0; 

> 

if (bioskey(l))  { 

char.out  =  bioskey(O); 

> 

> 

if (notice.up) 
dose.windowO ; 
dose.windowO ; 
if (char _ out  ==  ESC)  { 
dose.windowO ; 
return; 

} 

open. window (10,5,70,15, WHITE , BLACK ,2,0); 
cputeO'Select  Beacon  \r\n"); 
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cputa("A  For  7800  MHz  \r\n“); 
cpnt»("B  For  7604.705  MHz  \r\n"); 
cputa("Beacon??  "); 
quit  ■  FALSE; 
while (! quit)  { 

key.in  a  bioskey(O); 

if(key_in  ==  ESC) 
quit  *  TRUE; 

if (tolower(key_in)  ==  'a')  { 
setafreqO ; 
quit  =  TRUE; 

> 

if (tolower(key_in)  ==  *b’)  { 
aetbfreqO ; 
quit  *  TRUE; 

> 

> 

off eet_compute(0) ; 
close.uindowO ; 
close_window() ; 


▼oid  ray_control(void) 

char  hzatringClO] ; 
char  epointer; 
int  of fa at; 

open.vindow ( 10 , 2 , 70 ,4 , RED , LIGHTGRAY ,1,0); 

cputa("  Hit  <ESC>  To  quit  Frequency  Offset  Window"); 

open.window ( 10 , 5 , 70 , 1 0 , WHITE , BLACK , 2 , 0 ) ; 

cputa("Enter  Frequency  Offset  In  Hz  :  "); 

hzstring [0]  a  6; 

■y.cgeta (hzstring) ; 
pointer  a  hzstring  +  2; 
offset  *  atoi (pointer) ; 
offset_compute(offset) ; 
cloae_window() ; 
cloae_window() ; 
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/a**************************************************** 
♦File  :  cur 8 or. h 

♦By  :  Jin  Coppola 

♦  :  17  Aug  92 

♦  :  Version  1.0 

♦Update: 

♦By 

♦ 

♦Description:  Header  file  for  cursor  functions. 

♦ 

♦ 

♦♦♦♦•♦♦♦♦♦♦♦♦♦♦♦♦♦♦***********************************/ 

void  shov.cursor(void) ; 
void  hide_cursor(void) ; 
void  block_cursor(void) ; 
void  default_cursor(void) ; 
void  savecursor(void) ; 
void  restorecursor(void) ; 
void  nornalcursor(void) ; 


/***************************************************** 

♦File  :  cursor. c 

♦By  :  Jii.  Coppola 

♦  :  17  Aug  92 

♦  :  Version  1.0 

♦Update: 

♦By 

♦ 

♦Description:  Cursor  manipulation  routines.  Performs  cursor  tricks. 

*  Only  hidecursorQ  and  shov.cursor  are  used  by  set  program 

* 

*  Global  Variables  Used  :  Hone 

*  Global  Variables  Changed  :  None 

* 

♦ 

**♦***************************************************/ 

♦include  <dos.h> 

♦include  <conio.h> 

♦Include  "cursor. h" 

♦include  "int erupt. h" 

static  void  interrupt  far  (♦oldkb) (void) ; 
static  void  interrupt  far  nevkb(IREGS) ; 
static  void  invert_block(void) ; 

/♦♦♦♦♦kekyboard  bios  (oxl6)  functions*****/ 

♦define  READKB  0 
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#d*f ina  KBSTAT  1 


/*****vid*o  BIOS  (OxlO)  functions*****/ 

#daf in*  SETCURSORTYPE  1 

#d*f in*  SETCURSOR  2 

«d*lin*  READCURSOR  3 

#d*f in*  REAOATTRCHAR  8 

#d*fina  URITEATTRCHAR  9 

#d*lin*  HIDECURSOR  0X20 

static  int  cursorpos; 
static  int  cursorshapa; 

/*****g*t  cursor  shaps  and  position*****/ 
static  void  g*tcursor(void) 

{ 

_AH  =  READCURSOR; 

_BH  *  0; 

g*nint*rrupt (VIDEO) ; 

> 

/*****saav*  currant  cursor  conlig*****/ 
void  aavacursor(void) 

i 

gatcursorO ; 
cursorshap*  *  _CX; 
cursorpos  *  _DX; 

> 

/*****r*stor*  saved  cursor  conlig*****/ 
void  r*stor*curaor(void) 

{ 

_AH  ■  SETCURSOR; 

_BH  *  0; 

_DI  *  cursorpos; 
g*nint*rrupt (VIDEO) ; 

_AH  *  SETCURSORTYPE; 

_CX  *  cursorshapa; 
ganinterrupt (VIDEO) ; 

> 

/*****make  a  normal  cursor*****/ 
void  normalcursorCvoid) 

{ 

.AH  *  SETCURSORTYPE; 

_CX  *  0x0607; 
ganintarrupt(VIDEO) ; 

> 

/*****hida  th*  cursor*****/ 
void  hidacursor(void) 
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{ 

getcursorQ ; 

_CH  I*  HIDECURSOR; 
_AH  *  SETCURSORTYPE; 
geninterrupt (VIDEO) ; 


/♦••♦•show  the  cursor*****/ 
void  show.curaor(void) 

{ 

g«tcursor() ; 

_CH  *=  'HIDECURSOR; 

_AH  *  SETCURSORTYPE; 
geninterrupt (VIDEO) ; 

> 

/*****nake  a  block  cursor*****/ 
void  block.cursor(void) 

hldscursorO ; 

oldkb  =  getvect (KEYBOARD); 
set vect (KEYBOARD, nevkb) ; 

> 

/*****rsturn  to  default  blinking  cursor*****/ 
void  default.cursor(void) 

show. cursor () ; 
setvect (KEYBOARD . oldkb) ; 

> 

/*****interrupt  function  to  display  and  clear  the  block  cursor*****/ 
void  interrupt  far  newkb(IREGS  ir) 
i 

static  int  cset  =  0; 
static  char  kfunc; 

kfunc  *  _AH;  /***bios  function  requested***/ 
if (kfunc  ==  READKB  I  I  kfunc  ==  KBSTAT)  { 
if  (cset  **  0)  { 
cset  *  i; 
invert.blc rk ( ) ; 

> 

> 

_AI  =  ir.ax; 

(*oldkb) () ; 
ir.ax  *  .AX; 
ir.fl  =  .FUGS; 

if (kfunc  ==  READKB  kk  cset  ==  1)  { 
cset  =  0; 
invert.blockO ; 
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> 

> 

/*****invert  the  video  attributes  at  the  current  cursor  pos*****/ 
static  void  invert_block(void) 

static  int  c,  at; 

/**read  attribute  and  char  at  the  cursor  pos*****/ 

_BH  *  0; 

_AH  «  READATTRCHAR; 
geninterrupt (VIDEO) ; 
c=_AI ; 

/****swap  back  RGB  With  ig  RGB*****/ 
at  *  (c  »  8)  ft  OxFF; 

at  =  ((at  »  4)  A  7)  I  ((at  «  4)  ft  0x70)  I  (at  ft  0x88); 
/***write  attribute  and  char  at  the  cursor*****/ 

_CS  *  i;  /**one  chair  to  write**/ 

_BH  =  0;  /**page  zero**/ 

_BL  *  at;  /**new  attribute**/ 

_AL  *  c  ft  OxFF;  /**character**/ 

_AH  *  WRITEATTRCH AR ; 
geninterrupt (VIDEO) ; 
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/***********#******************************************** 

*  Fila  :  gpm.c 

*  by  Jim  Coppola 

*  18  Jul  92 

a  vara ion  1.0 

*Description:  Contains  functions  to  interface  to  the  GPM  beacon  port, 
aracaiva  tha  baacon  data,  than  call  update  routines  to  decode  and  display 
atha  SCT  configuration. 

a  Global  Variables  Used  :  update,  restart,  data,  index,  remote 

a  Global  Variables  Changed  :  update,  data,  index,  remote 

***«********************ee*****e*e*eeeeee******eeeeeee/ 


•include 

•include 

•include 

•include 

•include 


<dos .h> 
<stdio.h> 
"system. h" 
"port .h" 
"window. h" 


int  gpm_not ice_up ; 

/aaaaafanction  to  strip  the  ascii  bits  out  of  the  character  sent 
aaaaaastripping  out  four  bits  at  a  time  for  GPMaaaaa/ 
int  stripbits(int  char in) 

{ 

int  i2,tamp; 
if (REM0TE_SLAVE) 

char in  =  charin  ft  0x7F; 
if (char in  <  0x3A) 
charin  *  charin  -  48; 
else 

charin  =  charin  -  55; 


for ( i2=0 ; i2<4 ; i2++ )  { 
temp  a  charin  ft  0x08; 
if (tamp  ==  0) 
data (index]  =  0; 

else 

data [index]  =  1; 


charin  =  charin  «  1; 
index++; 
if(index  ==  49) 
display_clock() ; 
if (index  >=  100) 
return  TRUE; 

> 
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return  FALSE; 

} 

/••♦♦♦function  to  get  character  from  gpm.  Checks  for  timeout  condition, 
posts  warning  message  if  timed  out.  Hotice  removed  once  data  appearseeeee/ 
int  local_get_char() 

{ 

unsigned  com; 
int  char.in,  test; 
com  *  beacon.port; 
char.in  *  get.char(com) ; 
test  *  timed.out(com) ; 
if (test)  { 

if ( igpm.notice.up  ft*  !restart){ 
my.noticeC'Ho  Data  from  GPM! ! !") ; 
gpm.notice.up  =  TRUE; 
update  =  FALSE; 

> 

elie  { 

if(restart  At  gpm.notice.up)  { 
close.windowO ; 
gpm.notice.up  =  FALSE; 
update  *  TRUE; 

> 

> 

> 

elae{ 

if ( gpm_not i c  e.up ) { 
close.windowO ; 
gpm.notice.up  =  FALSE; 
update  =  TRUE; 

> 

> 

return  (char.in); 


/♦♦♦♦♦main  gpm  procedure.  Opens  port,  waits  for  line  feed,  then  gets 
characters  and  call  strip  bits  to  parse  out  the  data.  If  remote  master 
or  remote  sla'.e,  the  satellite  name  is  handshakod  across  after  the  data 
is  displayed.  ♦*♦♦♦/ 
void  gpm() 

{ 

unsigned  com; 

int  char.in,  go,  finished,  ji,  il,  i2,  update.labels; 

char  print.buff er[4096] ; 

char  quitC]  =  "ATHO"; 

com  *  beacon.port; 

jl  a  0; 

update.labels  -  FALSE; 
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/*****0p6&  port  if  not  remote  slave.  If  remote  slave,  rs  function  opens 
the  port  to  talk  to  the  modem*****/ 
if ( !REMOTE_SLAVE) 
openport(com,9600,7,l,0) ; 

go  *  TRUE; 

while (go) 

/*****restart  means  get  back  to  main  for  something  ASAP*****/ 
if (restart) 
return; 

gpm_notice_up  =  FALSE; 
char _ in  ■  0; 

/*****trap  on  line  feed*****/ 
while(char_in  !=  LF  ) 

{ 

if (restart) 
return; 

char_in  =  local_get_char() ; 

> 

/*****skip  line  feeds*****/ 
char _ in  a  local_get_char() ; 
char _ in  =  local_get_char() ; 

/*****get  bits  of  telemetry  data*****/ 
index  =  0; 
while(index  <  100) 

if (restart) 
return; 

char.in  ■  local_get_char(); 
finished  =  stripbits(char_in) ; 

/*****if  100  bits,  then  break  to  display.  Clock  is  displayed  in 
stripbits  when  the  48  bits  have  been  obtained*****/ 
if (finished) 

break ; 

> 

if (restart) 
return; 

display _data() ; 
if (update.labels)  { 
display.sat () ; 
update.labels  =  FALSE; 

> 

/*****check  remoting  items*****/ 
if (REMOTE.SLAVE)  { 

char.in  =  local_get_char() ; 
char. in  =  local_get_char() ; 
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if (char. in  ==  SOH)  { 
for(il*0;il<3;il++)  { 

char_in  =  local_get_char() ; 
if  (char  _  in  !=  srt[il])  { 

•at[il]  =  char.in; 
npdat«_labels  =  TRUE; 

> 

> 

> 

> 

if (REMOTE)  { 

char.in  *  local_get_char() ; 
while ( !xmit_buffer_ empty (remote_port)) 
xnit.char (remote.port) ; 

put_char(remote_port ,S0H) ; 
for(il=0;il<3;il++) 
put.char (remote.port , sat [il] ) ; 

if (char_rdy(remote_port))  { 
char _ in  *  get_char(remote_port) ; 
if(char_in  **  quit[jl])  { 

ji++; 

while(char_rdy(remote_port))  { 
char.in  ■  get_char(remote_port) ; 
if ( char _ in  ==  quit[jl])  { 

ji++; 

if (ji  >*  3) 

krmO; 

> 

else  { 

jl  =  0; 

break; 

> 

> 

> 

else 

jl  *  0; 

> 

> 

> 

> 
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/***************************************************** 

♦File  :  init.c 

♦By  :  Jim  Coppola 

♦  :  19  Jul  92 

♦  :  Version  1.0 

♦Update:  29  Jul  92 
♦By  :  Jim  Coppola 

♦ 

♦Description:  Contains  functions  to  get  receiver,  set  up  global 
♦variables  used  by  the  system,  and  set  up  the  initial  screen. 

« 

♦  Global  Variables  Used  :  update,  restart,  data[],  old[],  FGC0L0R, 
♦PRIITERJJP,  DISK_L0G_UP ,  B.BIRD,  FIRST,  IRIG.UP,  receiver,  options, 
♦quitnov,  satG,  beacon.port,  gpm.control.port,  remote.port,  REMOTE, 
*dos_timer_count ,  D0S_TIMER_UP ,  printnow,  disknos,  capturenov,  print _port 

* 

♦  Global  Variables  Changed  :  update,  restart,  data[3,  old[],  FGC0L0R, 
♦PRIITER_UP,  DISK_L0G_UP ,  B_BIRD,  FIRST,  IRIG.UP,  receiver,  options, 
♦quitnov,  satQ,  beacon.port,  gpm_control_port,  remote_port,  REMOTE, 
*dos_timer_count,  D0S_TIMER_UP ,  printnov,  disknov,  capturenov,  print_port 

a*****************************************************/ 

♦include  <conio.h> 

♦include  "system. h" 

♦include  "sindov.h" 

♦include  "timer.h" 

/♦♦♦♦♦time  out  function  -  not  used  in  this  system*****/ 
static  void  time_out(void) 

> 

/*****Used  to  debug  decode  and  display  software*****/ 
void  test_display_load(void) 

int  il; 

for(il=0;il<100;il++) 
dataCil]  =  0; 

data[51]  -  1; 

data [60]  *  1; 

> 

/****•! unction  to  initialize  global  variables  and  misc*****/ 
void  init_data(void) 

{ 

int  il; 
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for(il=0;il<100;il++) 
oldCil]  *  OxFF; 

FGCOLOR  *  YELLOW; 

BGCOLOR  =  BLUE; 

PRIITER.UP  =  DISX.LOG.UP  =  FALSE; 
options  ■  quitnos  =  FALSE; 

B.BIRD  *  FIRST  =  TRUE; 

restart  =  IRIG_UP  =  FALSE; 

receiver  =  0; 

sat [0]  *  'B'; 

sat  Cl]  *  ’  1  ’ ; 

sat [2]  *  '4'; 

/*****com  port  assignments*****/ 
beacon.port  *  1; 
gpm_control_port  =  2; 
remote .port  =  2; 

REMOTE  *  FALSE; 

/*****set  up  dos  timer  stuff*****/ 
dos.timer.count  =  17; 

DOS_TIMER_UP  =  TRUE; 

/***♦*  set  up  printing  stuff  ♦****/ 

printnow  =  disknow  =  capturenow  *  FALSE; 
print _port  *  0; 

//  test.display.loadQ ; 

} 

/*****main  function  in  file.  Calls  init  data  to  initialize  global 
variables.  Also  calls  optionsO  to  get  the  user's  initial  inputs.  Sets 
up  the  initial  display  screen*****/ 
void  init (void) 

int  status; 

teztbackground (GREEK) ; 
teztcolor (WHITE) ; 
clrscrO ; 
init .data () ; 

status  =  initialize.printerO ; 
if (istatus) 

PRIITER.UP  *  FALSE; 

else 

PRIITER.UP  =  TRUE; 
update  =  FALSE; 
intercept.timer(time.out) ; 
set.def ault.options () ; 

/*****START_REMOTE  set  in  command  line  arguments  evaluated  in  main()*****/ 
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it (START.REMOTE) 
ra() ; 

IIITIAL  =  TRUE; 
it ( ! REMOTE.SLAVE) 
get.optioaaQ ; 

IIITIAL  =  FALSE; 
clear .key a () ; 
intercept .keyboard () ; 

open.windoj (1,1,80,26, FGCOLOR , BGCOLOR , FALSE , 0) ; 

diaplay.labela 0 ; 

diaplay_ayatem() ; 

update  =  TRUE; 

hidecuraorO ; 
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/***•******************************************♦****** 

•File  :  interrupt. h 

•By  :  Jin  Coppola 

•  :  19  Jul  92 

•  :  Version  1.0 

•Update: 

•By 

• 

•Description: Header  file  for  the  interrupt  vectors  that  may 

•  be  used  by  various  interrupt  handlers  as  they  are  developed. 

* 

* 

* 

* 

* 

•••••••••••••••••••••••tee****************************/ 

/•••••the  interrupt  function  registers*****/ 

typedef  struct 

{ 

int  bp.di.si.ds.es.dx.cx.bx.ax.ip.cs.fl; 

>  I REGS; 

♦define  VIDEO  0x10 
*define  DOS  0x21 
♦define  XYBRD  9 
♦define  KEYBOARD  0x16 
♦define  TIMER  8 

♦define  KBDATA  0x60 
♦define  KBCOITROL  0x61 
♦define  KBSTATUS  0x64 

♦define  ZEROFLAG  0x40 
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/****a************************************************ 

*File  :  irig.h 

*By  :  Jia  Coppola 

*  :  02  Sap  92 

*  :  Varaion  1.0 

*Update: 

♦By 

a 

aDaacrlptlon:  Header  lile  lor  irig  coda  to  talk  to  irig  card. 

a 

a 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/ 


/aaaaafunction  daclarationsaaaaa/ 
int  *tart_irig(); 


/aaaaairig  ragistar  addreaaasaeeae/ 


const 

IIT.REGISTER 

* 

OxOF; 

const 

C HD BYT 

= 

OxOE; 

const 

PDLAY_MSB 

= 

OxOD; 

const 

PDLAY.LSB 

S 

OxOC; 

const 

HEARTBT.MSB 

= 

OxOB; 

const 

HEARTBT.LSB 

3 

OxOA; 

const 

MASKS 

S 

0x09; 

const 

TCODE 

S 

0x08; 

const 

STATUS 

s 

0x07; 

const 

DAT06 

= 

0x06; 

const 

DAT05 

= 

0x05; 

const 

DAT04 

s 

0x04; 

const 

DAT03 

s 

0x03; 

const 

DAT02 

s 

0x02; 

const 

DAT01 

s 

0x01; 

const 

DATOO 

= 

0x00;  , 

Irom  base  address  */ 

const 

DELAY  =  100; 

const 

TM_0UT_VAL  = 

30000; 

data  block  assignments  olfsat 


/aaaaabaaa  address  ol  irig  card.  Using  pm2  interrupt*****/ 
conat  BASE  ■  0x320;  /***hex  base  address  ol  irig  cardaaa/ 


/aaaaairig  interrupt  values  :  using  pm2  interruptaaaaa/ 
Adeline  IRIGEIABLE  OxDF 

Adeline  IRIGDISABLE  0x20 

Adelina  IRIGIIT  OxOD 

Adelina  PIC01  0x21  /*8259  interrupt  controller*/ 

Adelina  PIC00  0x20  /*8259  interrupt  controller*/ 

Adeline  EOI  0x20  /*end  ol  interrupt*/ 


/a**aa*****aaa*****aa*****aaaaaaa*aaaa*aa*aaaa*a*aaaaa 
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♦File  :  irig.c 

♦By  :  Jim  Coppola 

♦  :  02  Sep  92 

♦  :  Version  1.0 

♦Update: 

♦By 

♦ 

♦Daacription:  Functions  to  implement  irig  interlace 

* 

*  Global  Variables  Used 

♦  Global  Variables  Changed  :  IRIG.UP,  mil_date[],  sys_time[], 
♦IITERUPT.UP 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦**********************************/ 
•include  *stdio.h> 

•include  <dos.h> 

•include  <stdlib.h> 

•include  <conio.h> 

•include  "system. h" 

•include  "irig.h" 


void  tim_out(void) ; 
void  tim_delay(); 

static  void  (interrupt  lar  *oldirigint) (void) ; 
static  void  interrupt  lar  newirigint(void) ; 

char  old.date  □  *  {"000"}; 

/♦  ♦♦♦♦post  irig  date  in  military  lormat****  */ 

/*  ♦♦♦♦lirst,  convert  julian  date  to  dos  time  lormat****  */ 
void  post_date(int  date.in) 

{ 

int  il,  month,  day,  year,  month.ollset; 

char  months  □  =  {"JanFebMarAprMayJunJulAugSepOctNovDec"}; 

char  tempCB] ; 

float  d,  m,  y,  j,  jdate_in,daytemp; 
struct  date  dos.date; 


getdate(fcdos_date) ; 

daytemp  *  datetojulian(l ,  1,  dos.date .da.year) ; 
day  temp-*--)-;  /*just  to  get  rid  ol  compiler  warning!!*/ 
jdate.in  =  irig_lirst_day  -  1.0  +  (lloat)  date.in; 


j  ■  (long)  jdate.in  -  1721119.0; 
y  *  (long)  ((4*j-l)/146097.0); 
j  *  (long)  ((4*j-l)-(146097.0*y)); 
d  «  (long)  (j/4) ; 
j  *  (long)  ( (4*d+3)/1461) ; 
d  *  (long)  ((4*d+3)-(1461*j)); 
d  *  (long)  ((d+4)/4); 
m  *  (long)  ((5*d-3)/153); 
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d  *  (long)  ((S*d-3)-(153*m)); 
d  *  (long)  ((d+5)/5) ; 
y  *  (long)  (100*y+j) ; 

day  *  (Int)  d; 
month  *  (int)  m; 
year  *  (int)  y; 
if (month  <  10) 
month  =  month  +  3; 

•la«  -C 

month  =  month  =  9; 
year  =  year  +  1; 

> 

itoa (day , temp , 10) ; 
if (day  <  10)  { 
mil.dateCO]  =  *0’; 
mil.dateCl]  =  temp[0]; 

> 

else  { 

mil_date[0]  =  temp[0]; 
mil_date[l]  *  temp[l]; 

> 

mil_date[2]  =  '  ' ; 
month_offaet  =  (month  -  1)  *  3; 
for(il=0; il<3; il++) 

mil_date[il+3]  *  monthsEil  +  month.off set] ; 
mil_date[6]  =  '  '; 
itoa(year,temp,10) ; 
mil_date[7]  *  temp [2]; 
mil_date[8]  =  temp [3]; 
mil_date[9]  *  0;  /**null  terminator**/ 


/*♦*** interrupt  service  routine  for  lpps  irig*****/ 
static  void  interrupt  far  newirigint(void) 

{ 

int  i,  j,  il,  data,  rdyflg,  timebyte,  post,  irig.jtime; 

long  int  offset; 

unsigned  int  timer; 

char  *pointer  =  sys.time; 

IITERRUPT.UP  =  TRUE; 

aya.timeCO]  *  inportb(BASE  +  INT.REGISTER) ;  /*  clear  irq  */ 
outp(PICOO.EOI) ; 

timer  =  TM_0UT_VAL; 

outportb(BASE+CMDBYT,0x80) ;  /*  request  time  */ 

do  { 

tim_delay();  /*  slov  polling  rate  to  <  500  Khz  */ 

rdyflg  =  inportb(BASE+CMDBYT) ; 


96 


> 

while  ((rdyllg  !=  0)  kk  — timer);  /•  wait  lor  ready  Hag  o 1  0  ♦/ 

if ( (timer) 
tim_out() ; 

if(IRIGJJP)  { 

i  ■  0;  /•  begin  loading  time  into  timeCj]  array  ♦/ 

j  *  12; 

sys_time[j — ]  *  0;  /*****null  terminator  */ 

sys_time[j--3  =  (inportb(BASE+i)  k  OxOF)  I  0x30;  /*  get  seconds  units  ♦/ 
sys_time[j — ]  =  ((inportb(BASE+i++)  *  OxFO)  »  4)  I  0x30;  /♦  get  seconds 

tens  •/ 

diff.time  =  atoi(pointer+10) ; 
sys_time[j— 3  ■  ’  * ; 

sys_time[j — 3  »  (inportb(BASE+i)  k  OxOF)  I  0x30;  /•  get  minutes  units  ♦/ 

sys_time[j — 3  *  ((inportb(BASE+i++)  k  OxFO)  »  4)  I  0x30;  /•  get  minutes 

tens  ♦/ 

sys_time [j — 3  =  '  ' ; 

sys_time[j — 3  =  (inportb(BASE+i)  *  OxOF)  I  0x30;  /♦  get  hours  units  ♦/ 

sys_time[j — 3  »  ((inportb(BASE+i++)  k  OxFO)  »  4)  I  0x30;  /♦  get  hours 

tens  ♦/ 

sys_time [j — 3  =  ’/’; 

sys_time[j — 3  =  (inportb(BASE+i)  k  OxOF)  I  0x30;  /*  get  days  units  ♦/ 

■ya_time[j — 3  *  ((inportb(BASE+i++)  k  OxFO)  »  4)  I  0x30;  /•  get  days 

tens  ♦/ 

sys_time[j3  =  ((inportb(BASE+i)  k  OxCO)  »  6)  I  0x30;  /♦  get  days 

hundreds  •/ 
post  -  FALSE; 
for(il*j;il<j+3;il++)  { 

if (old_date[il3  !»  sys_time[il3 )  { 
old_date[il3  =  sys_time[il3 ; 
post  *  TRUE; 

> 

> 

if (post)  { 

irig_jtime  =  atoi(old.date) ; 
post_date(irig_jtime) ; 
post  =  FALSE; 

> 

display_time() ; 

> 

> 

/♦♦•♦•initialize  irig  card  port  and  set  up  interrupt  victoria)*****/ 
void  intercept_irig() 

/♦♦••♦set  up  interrupt  vectoree**e/ 

outp(PIC01,  (inp(PICOl)  I  IRIGDISABLE)) ; 
oldirigint  *  getvect(IRIGIST) ; 
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setvect (IRIGINT,  newirigint); 
outp(PIC01,  (inp(PICOl)  t  IRIGENABLE) ) ; 


/*****restore  the  interrupt  vector*****/ 
void  reetore_irig(void) 
int  rdyllg; 

unsigned  int  timer=TM_OUT_VAL; 

IRIGJJP  =  FALSE; 

//  if (oldirigint) 

setvect(IRIGIHT,  oldirigint); 

outp(PIC01 ,  (inp(PICOl)  |  IRIGDISABLE)) ; 

outportb(BASE+MASKS , 0x0) ; 

outportb(BASE+CMDBYT,0x90) ;  /*  initialize  630AT  to  above  values  */ 

/*  ****  IHITIALIZE  COMMAKD  MUST  FOLLOW  ALL  ***  */ 

/*  ****  UPDATES  TO  TIMECODE  AMD  MASKS  REGISTER  ***  */ 

do  /*  Poll  for  ’Initialize'  complete  ready  flag  of  0x10  */ 

i 

tim.delayO ;  /*  slow  polling  rate  to  <  BOO  Khz  */ 

rdyflg  *  inportb ( B ASE+CMDBYT ) ; 

> 

while  ((rdyflg  !=  0x10)  tic  — timer);  /*  wait  for  ready  flag  of  0x10  */ 

if ( ! timer) 
tim_out() ; 


/♦♦♦♦♦initialize  irig  card,  call  isr  replacement  routine*****/ 
int  start.irigO 
i 

int  il,  rdyflg,  ret; 
unsigned  int  timer=TM_OUT_VAL; 
intercept_irig() ; 

IITERRUPT.UP  =  FALSE; 
for(il*0;il<3; il++) 
old_date[il]  =  'O’; 

outportb(BASE+STATUS,OxOO) ; 
tim.delayO ; 

outportb(BASE+TC0DE,0x42) ;  /*****  select  detect  of  incoming 

IRIG  B  modulated  and 
time  codes 

init  mode  =  normal  /  modulated  time  code  select 
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Iota:  lor  autodetact  mod/DC 
bit  must  ba  zero*****/ 


outportb(BASE+CMDBYT,0x90) ;  /♦  initialize  630AT  to  above  values  */ 

/♦  ♦♦♦♦  INITIALIZE  COMMAND  MUST  FOLLOW  ALL  ♦♦♦  ♦/ 

/♦  ****  UPDATES  TO  TIMECODE  AND  MASKS  REGISTER  ♦♦♦  ♦/ 

do  /♦  Poll  lor  'Initialize'  complete  ready  llag  ol  0x10  ♦/ 

< 

tim_delay();  /♦  slow  polling  rate  to  <  500  Khz  ♦/ 

rdyflg  =  inportb(BASE-rCMDBYT); 

> 

while  ((rdyllg  !=  0x10)  Aft  — timer);  /♦  wait  lor  ready  llag  ol  0x10  ♦/ 

/♦♦♦** initialize  interrrupts ♦*♦♦♦/ 
timer  =  TM_0UT_VAL; 
outportb(  BASE-)- MASKS  ,0x88) ; 

outportb(BASE+CMDBYT,0x90) ;  /♦  initialize  630AT  to  above  values  ♦/ 

/♦  ♦♦♦♦  INITIALIZE  COMMAND  MUST  FOLLOW  ALL  ♦  ♦♦  ♦/ 

/♦  ****  UPDATES  TO  TIMECODE  AND  MASKS  REGISTER  ♦♦♦  ♦  / 

do  /♦  Poll  1 or  'Initialize'  complete  ready  llag  ol  0x10  */ 

{ 

tim_delay();  /♦  slow  polling  rate  to  <  500  Khz  ♦/ 

rdyllg  «  inportb(BASE+CMDBYT) ; 

> 

while  ((rdyllg  !=  0x10)  ftft  — timer);  /♦  wait  lor  ready  llag  ol  0x10  ♦/ 

il( (timer)  { 
tim_out() ; 
return  FALSE; 

> 

else  { 

IRIG.UP  =  TRUE; 
return  TRUE; 

> 

> 

/♦♦♦♦♦delay  to  slow  card  polling  rate  to  acceptable  limiteeeee/ 
void  t^m.delayO 
{ 

int  ii; 

lor  (ii  =  DELAY;  ii  !=  0;  ii— ) ; 

> 

/♦♦♦♦♦error  routine  when  IRIG  card  doesn’t  respond*eeee/ 
void  tim_out() 

{ 

setvect(IRIGINT,  oldirigint); 
outp(PIC01 ,  (inp(PICOl)  I  IRIGDISABLE) ) ; 
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•rror_mes8age("IRIG  Card  Hot  responding!!!"); 
IRIG.UP  =  FAI.SE; 
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/a****************************************- *********** 

♦File  :  keys.h 

♦By  :  Jim  Coppola 

♦  :  29  Jul  92 

♦  :  Version  1.0 

♦Update: 

♦By 

♦ 

♦Description:  Header  file  lor  keyboard  definitions.  Routines  taken 

♦  from  "Extending  Trubo  C  professional  by  A1  Stevens. 

♦ 

♦ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦******e***e****************««*******/ 


#def ine 

RUB OUT 

8 

#def ine 

BELL 

7 

#def ine 

ESC  27 

♦define 

FI  187 

#def ine 

F2  188 

♦define 

F3  189 

♦define 

F4  190 

♦define 

F6  191 

♦define 

F6  192 

♦define 

F7  193 

♦define 

F8  194 

♦define 

F9  195 

♦define 

F10  196 

♦define 

CTRL.Fl 

222 

♦define 

CTRL_F2 

223 

♦define 

CTRL.F3 

224 

♦define 

CTRL.F4 

225 

♦define 

CTRL.FS 

226 

♦define 

CTRL.F6 

227 

♦define 

CTRL.F7 

228 

♦define 

CTRL.F8 

229 

♦define 

CTRL.F9 

230 

♦define 

CTRL.F10  231 

♦define 

ALT.Fl 

232 

♦define 

ALT.F2 

233 

♦define 

ALT.F3 

234 

♦define 

ALT.F4 

235 

♦define 

ALT.FS 

236 

♦define 

ALT.F6 

237 

♦define 

ALT.F7 

238 

♦define 

ALT.F8 

239 

♦define 

ALT.F9 

240 

♦define 

ALT.F10 

241 
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tdeline 

BONE  199 

tdeline 

UP  200 

tdeline 

PGUP  201 

#deline 

BS  203 

*deline 

FIVE  204 

ideline 

FVD  20S 

tdeline 

EHD  207 

tdeline 

DI  208 

tdeline 

PGDN  209 

tdeline 

IIS  210 

tdeline 

DEL  211 

tdeline 

CTRL.H0ME 

247 

tdeline 

CTRL.UP 

141 

tdeline 

CTRL.PGUP 

132 

tdeline 

CTRL.BS 

243 

tdeline 

CTRL.FIVE 

143 

tdeline 

CTRL.FVD 

244 

tdeline 

CTRL.EHD 

245 

tdeline 

CTRL.DH 

145 

tdeline 

CTEL.PGDI 

246 

tdeline 

CTRL.IHS 

146 

tdeline 

CTRL.DEL 

147 

int  getkey(void) ; 

void  aurotype ( char  *)  ; 
void  repeat_rate(int) ; 
void  atullkey(int) ; 


void  clear_bioabull(void) ; 
extern  int  cgets.returnkey; 

/♦♦♦****♦*♦***********************♦******♦*♦♦♦♦♦♦♦♦♦♦♦ 

♦File  :  keyboard. c 

♦By  :  Jim  Coppola 

♦  :  17  Aug  92 

♦  :  Varsion  1.0 

♦Update: 

♦By 

♦ 

♦Daacriptiou:  Functions  which  interlace  with  the  keyboard 

♦ 

♦  Global  Variable8  Used 

♦  Global  Variables  Changed  :  quitnow,  update,  capturenow,  restart 

*****************♦********♦******♦♦**♦♦♦♦♦**♦♦♦♦♦♦♦♦♦♦/ 

tindude  <atdio.h> 
tindude  <dos.h> 

# include  <conio.h> 
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♦include  <ctype.h> 

♦include  "system.h" 

♦include  "keys.h" 

♦include  "int erupt. h" 

static  void  (interrupt  far  eoldkeyboard) () ; 
static  void  interrupt  far  newkeyboard() ; 

int  cgets.returnkey ; 

/♦♦♦♦•intercept  the  keyboard  interrupt  vector*^**e/ 
void  intercept .keyboard (void) 

{ 

oldkeyboard  =  getvect(KYBRD) ; 
setvect (KYBRD ,  newkeyboard) ; 

> 

/♦♦♦♦♦restore  keyboard  interrupt  vector*****/ 
void  restore_keyboard() 

{ 

it (oldkeyboard  !=  HULL) 

setvect (KYBRD ,  oldkeyboard) ; 

> 

/♦♦♦♦♦routine  to  get  a  kty******/ 
int  getkey(void) 

int  c; 

while  (bioskey(l)  ==  0) 
geninterrupt (0x28) ; 
if (((c=bioskey(0))  t  25B)  ==  0) 
c  *  (c  »  8)  I  0x80; 
return  c  *  255; 

> 

/•♦♦♦♦routine  to  post  sure  quit  notice  or  call  finish  to  quit*****/ 
void  quitl(void) 

if  (quitnowH 
close_window() ; 
finish () ; 

> 

else  { 

update  =  FALSE; 
quitnow  =  TRUE; 

ffly_notice("Q  or  Y  to  really  quit!!  "); 

> 

> 

/♦•♦♦♦ISR  to  check  keyboarde*ee*/ 
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static  void  interrupt  far  newkeyboardO 

{ 

unsigned  char  key.in; 

(*oldkeyboard) () ; 

if (bioskey(l))  { 
ksy_in  =  getkeyO; 

switch(key.in)  { 

case  *y*  :  if(quitnow) 
quitlQ ; 
break; 

case  ’q’  :  quitl(); 

break; 

case  'Y*  :  if(quitnow) 
quitlQ ; 
break; 

case  ’Q*  :  quitl(); 

break; 

case  FI  :  restart  =  TRUE; 

options  =  TRUE; 
break; 

case  F2  :  restart  =  TRUE; 

printnow  =  TRUE; 
break; 

case  F4  :  gettext(l,l,80,25,screen_buffer); 

capturenow  *  TRUE;  /**for  thesis  screen  capture**/ 
restart  =  TRUE; 
break; 

default  :  if(quitnow)  { 

quitnov  =  FALSE; 
update  *  TRUE; 
close.windowO ; 

> 

> 

> 

> 

/*****function  to  clear  keyboard  buffer*****/ 
void  clear .keys (void) 

int  key.in; 

vhile(bioskeyd)) 
key  .in  =  bioskey(O) ; 

key  _in++;  /*****to  get  rid  of  compiler  warning*****/ 


/eeeeeinproved  cgets  routine,  workes  nice,  stays  in  active  window*****/ 
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char  *ny_cg«ts(ch&r  *s) 

{ 

char  *bf  =  a  +  2; 
int  c  =  0; 

ahila  ((c  =  getkayO)  !=  *\r’)  { 
if (c==BS) 
c  *  ’\b* ; 
if(c«  *\b')  { 
if (bf  >  a+2)  { 

~bf; 

cputa("\b  \b"); 

> 

> 

alaa  if (isprint (c)  kk  bf  <  s  +  *s  +  1)  { 
patch(c) ; 

*bf++  =  c; 

> 

alaa  if  (cs=ESC  lick  0x80) 
braak; 

alaa 

patch (BELL) ; 

} 

*bf  =  ’ \0 ’ ; 
a  Cl]  *  bf  -  a  -  2; 
cgata.raturakay  *  c; 
raturn  a+2; 

> 


105 


/***************************************************** 

•File  :  main.c 

•By  :  Jin  Coppola 

•  :  19  Jul  92 

•  :  Vara ion  1.0 

•Updata : 

•By 

• 

•Daacription:  main  procadura  here.  Also  includes  finished  routine 
•which  restores  all  interrupts  and  closes  ports.  Calls  menu  when  FI 
•is  pressed.  Checks  command  line  argument  for  slave  operation. 

* 

• 

*  Global  Variables  Used  :  update,  restart,  receiver,  capturenow, 
•printnow,  disknow,  PARALLEL.UP,  IRIG.UP 

•  Global  Variables  Changed  :  update,  data,  START.REMOTE ,  options 
•first,  capturenow,  printnow,  disknow,  DISK_L0G_UP 

*******••••***•*••**•*••****************•*•**•***•****/ 

•define  MAIM 
•include  <dos.h> 

•include  <conio.h> 

•include  <string.h> 

•include  <stdio.h> 

•include  "system. h" 

/••***  function  prototypes*****/ 

void  finish(void); 

void  store.screen(void) ; 

/•••••required  main  function  which  controls  the  system*****/ 
void  main(int  argc,  char  *argv[]) 

< 

int  il,  i2 ; 

char  remC]  *  {'r' , 'e' , 'm' , 'o'}; 
char  print_buff er[4096] ; 
char  *pointer,  char_out,  file_name[ll] ; 
int  sheet  *  0; 

FILE  *file_pointer; 

/•♦♦♦♦check  command  line  argument*****/ 
if (argc  >  1)  { 

for(il=0;il<4;il++)  { 

if ((tolower(*(argv[l]+il)))  ==  rem[il]){ 

START.REMOTE  =  TRUE; 

> 

else  { 

START.REMOTE  =  FALSE; 

break; 

> 


106 


> 

> 

initQ; 

update  *  TRUE; 
for(; ;)  { 

switch(receiver) 

< 

cm*  0  :  gpm() ; 

break; 

caaa  1  :  raytheonO; 

break; 

case  2  :  asc30(); 

break; 

default  :  noticeC'Program  Error !! !  Panic  Quit"); 
finishO ; 

> 

if (options)  { 
restart  =  FALSE; 
restore.keyboardO ; 
update  =  FALSE; 
options  =  FALSE; 
got.optionsO ; 
for(il*0;il<100;il++) 
oldCil]  *  OxFF; 

dose.all.trindows  ( ) ; 

open.window (1,1,80,25, FGC0L0R , BGCOLOR , FALSE , 0) ; 

FIRST  »  TRUE; 

update  *  TRUE; 

display.labels ( ) ; 

display.systemO ; 

intercept .keyboard () ; 

> 

if (capturenow)  { 
restart  ~  FALSE; 
update  »  FALSE; 
capturenow  =  FALSE; 
restore.keyboardO ; 
store.screenQ ; 
update  =  TRUE; 
intercept _keyboard() ; 

> 

if (printnow)  { 
restart  =  FALSE; 
update  *  FALSE; 
printnov  =  FALSE; 
if  (print  er.readyO)  ■( 
gettext (1,1,80,25, print _buff  er) ; 

■y.not ice ("Printing  Beacon  Information"); 
pointer  *  print .buffer; 
for(il*0;il<4; il++) 
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print_char(OxOA) ; 
print_char(OxOD) ; 

12  *  0; 

lor (11*0 ; il<1990;il++)  { 
char.out  =  *(pointer); 
print _char(char_out) ; 

12++ ; 

11 (i2  >=  80)  { 
char_out  *  OxOD; 
print. char (char_out) ; 
char.out  *  OxOA; 
print_char( char .out) ; 
i2  *  0; 

> 

pointer  *  pointer+2; 

> 

sheet++; 

il (shoot  >=  2)  { 
char.out  *  OxOC; 
print.char (char.out) ; 
shoot  *  0; 

> 

dose.vindouO  ; 
char.out  *  OxOD; 
print_char(char_out) ; 

> 

olso  { 

restore.keyboardO ; 

error.aesBage ("Printer  Error,  Cannot  Print!!"); 
intorcopt.keyboardQ ; 

/♦PRIITER.UP  Hag  set  in  printer  handler*/ 

> 

update  =  TRUE; 

> 

il(disknow)  { 
restart  *  FALSE; 
updato  *  FALSE; 
disknow  *  FALSE; 

gettext(l,l,80,2S,print_buller) ; 
pointer  =  print.buller; 
disknov  *  FALSE; 

sprint!  (lile_name ,  '"/.c’/.c'/.c'/.c'/.c'/.c'/.c'/.c'/.c’/.c’/.c" ,  sys.time  [0]  ,  sys_time  [1]  , 
sys.ti«e[23  ,sys_time[7]  ,sys_timeC8] , 
sys.tiaeClO] .sys.time [11] , 

».»,»c»,*a»,»p»); 

file.pointer  =  lopen(lile_name,"wt") ; 
iKlile.pointer  !*  HULL)  { 

*y_notico("Saving  Beacon  Inlonnation  To  Disk"); 
lor(il*0; il<4; il++) 

lprintl(lilo_pointer ,  "'/.c"  ,0x0A) ; 
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Iprintl  (lile.po  intar ,  '"/,c"  ,OxOD) ; 
i2  »  0; 

lor(il*0;il<1990;il++)  { 
char.out  *  *(pointer); 

Iprintl  (1 ile.pointer ,  "y.c" ,  char.out ) ; 
i2++; 

il  (i2  >=  80)  { 
char.out  a  OxOD; 

Iprintl  (lile.pointer ,  '"/.c" ,  chair _out) ; 
char .out  a  oxOA; 

Iprintl (lile.pointer ,  "*/.c" ,  chair_out) ; 

12  »  o; 

> 

pointer  =  pointer+2; 

} 

dose_vindov() ; 
char.out  =  OxOD; 

Iprintl (1 ile.pointer ,  "*/, c" ,  chair_out ) ; 
ldose(lile_pointer) ; 

> 

•l>a  { 

•rror_Beasage("File  Opan  Error,  Caumot  Save*!"); 
DISK.LOG.UP  =  FALSE; 

> 

update  =  TRUE; 

} 

> 


/*****lunction  to  quit  ,  restores  interrupt  vectors*****/ 
void  linish(void) 

{ 

char  tamp; 
il (REMOTE)  { 

*y_notice("Hanging  Up  Modem"); 
hangup(remote_port) ; 
releaae_modem(remote_port) ; 
dose_window(remote_port) ; 

> 

il(REMOTE.SLAVE)  { 

my_notica( "Please  Wait.  Hanging  Up  Modem"); 
hangup(remote_port) ; 
set .timer (0,6) ; 

*hile( !timed_out(0)) ; 
release_modem(remote_port) ; 
cloae_vindos() ; 

> 

il (port_up(receiver ) ) 
doseport  (receiver) ; 
il(port_up(remote_port)) ; 
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doseport  (remote_port)  ; 
if (PARALLEL.UP) 
closeparallelO ; 
restore_timer(); 
restore.keyboardQ ; 
il(IRIG_UP) 
restore.irigO ; 
close_all_vindows () ; 
show_cursor() ; 
drier  () ; 

//  tamp  *  bioskey(O); 

/*****use  DOS  to  exit,  C  exit()  routine  call  wrong  interrupt*****/ 
_AH  *  0x4C; 

_AL  *  0x00; 
geninterrupt(0x21) ; 

> 

/*****procedure  to  capture  screens  and  save  to  disk 
**  used  to  generate  screens  lor  thesis  report******/ 
void  store_screen(void) 

{ 

FILE  *1 ile_po inter; 
char  file_naae[ll] ; 
int  il; 

D0S_TIMER_UP  *  FALSE; 
my_notice("opening  lile"); 

sprintl  (lile.name ,  "V.c'/.c'/.c'/.c'/.c'/.c'/.cy.c'/.c'/.cy.c" ,  sy s_t ime  [0]  , sys_t ime  [1]  , 
sys_time[2] , sys_time[7] , sys_time[8] , 
sys_time[10] ,sys_time[ll] , 

•.VcVaVp*)'; 

lile_pointer  *  lopen(lile_name,"wt") ; 
iKlile.po inter  !=  HULL)  { 
close_vindov() ; 

my_notice( "Saving  Screen  To  Disk  "); 
lor(il=0; il<4096; il++) 

fprintf  dile_pointer,"'/,c",screen_bulier  [il]  ) ; 
dose.vindowO ; 
fclose(f ile_pointer) ; 
my.notice("Any  key  to  continue!!"); 
cputs("  FILE  =  "); 
cputsdile.name) ; 
il  *  bioskey(O); 
dose.vindowO ; 

> 

else  { 

error_message("File  Open  Error,  Cannot  Save!!"); 
linishO ; 

> 
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/***************************************************** 

♦File  :  menu.h 

♦By  :  Jim  Coppola 

♦  :  17  Aug  92 

♦  :  Version  1.0 

♦Update: 

♦By 

♦ 

♦Description:  File  contains  the  header  information  for  the  menu 

♦  functions  in  menu.c. 

♦ 

******************************************************/ 

typedef  struct  { 
char  ♦mname; 
char  ♦♦mselcs; 
int  (**func) (void) ; 

>  MEIU; 

void  executive (MEIU  ♦) ; 

/♦♦♦♦♦menu  colors*****/ 

♦define  MEIUBG  RED 
♦define  MEIUFG  WHITE 
♦define  SELECTBG  WHITE 
♦define  SELECTFG  BLACK 
♦define  DISABLEFG  LIGHTGRAY 

♦define  endname(m,h,v)  \ 

(*(m[h-l] .mselcsCv-1] [strlen(m[h-l] ,mselcs[v-l] )])) 

♦define  selector(m,h, v)  (*(endname(m,h, v)-2)) 

♦define  enabler (m,h,v)  (♦(endname(m,h,v)-l)) 

♦define  CHECK  ’\xfb* 

♦define  test_option(m,h,v)  (selector(m,h, v)==CHECK) 

♦define  set_option(m,h,v)  (selector(m,h, v)=CHECK) 

♦define  clear_option(m,h, v)  (selector(m,h,v)=’  ’) 

♦define  enable_selection(m,h, v)  (enabler(m,h,v)='  ') 

♦define  disable_selection(m,h, v)  (enabler(m,h,v)s'*') 

♦define  enabled(m,h,v)  (enabler(m,h,v) !='♦') 

/***************************************************** 

♦File  :  menu.c 

♦By  :  Jim  Coppola 

*  :  17  Aug  92 

*  :  Version  1.0 

♦Update: 

♦By 

* 

♦Description:  File  contains  the  menu 


/♦menu  bar  selection  names  ♦/ 
/♦the  pop-dovn  menu  selections  */ 
/♦the  functions  to  execute*/ 
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*  functions. 

* 

*  Global  Variables  Used  :  ♦♦none** 

*  Global  Variables  Changed  :  **none** 
♦♦♦♦♦♦♦e**********************************************/ 
•include  <stdio.h> 

•include  <conio.h> 

•include  <stdlib.h> 

•include  <string.h> 

•include  <ctype.h> 

•include  "Hindoo .h" 

•include  "menu.h" 

•include  "keys.h" 

•include  "cursor. h" 

•include  "system.h" 

•define  01  1 
•define  OFF  0 

static  int  getvmn(MENU  *,  int*); 
static  void  dimens ion (char  **,  int  *,  int  *); 
static  void  light(MEHU  *,  int,  int); 
static  void  vlight(MENU  *,  int,  int,  int); 

static  int  lastvselQ  ■  {1,1, 1,1, 1,1}; 

/♦♦♦♦♦display  and  process  a  menu******/ 
void  executive(MENU  ♦mn) 

{ 

int  hsel*l,  vsel,  frtn  =  FALSE; 
int  i  *  0; 

my_notice("<ESC>  To  Exit\r\n<CR>  To  Select"); 
open.vindon (1,1,80,1, HENUFG , MENUBG , 0 , 0 ) ; 
hide cursor () ; 
cprintf ("  "); 

Hhile  ((mn+i)->mname) 

cprintf  ("  5(-10.10s  " ,  (mn+i++)->mname) ; 
light(mn,  hsel,  ON); 

Hhile  (Ifrtn  kk  ((vsel  =  getvmn(mn,  thsel))  !=  0))  { 
light (mn. hsel, OFF); 
shoH_ cursor () ; 

frtn  *  (*(mn+hsel-l)->func[vsel-l])(); 
hide curs or () ; 
light(mn,  hsel,  ON); 

> 

dose.HindonO ; 
close.HindosO ; 

> 

/♦♦♦♦♦pop  dovn  a  vertical  menu*****/ 
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static  int  getvan(MENU  *an,  int  *hsel) 

{ 

int  ht,  sd,  vx,  sel  =0,  vsel,  vs; 

char  **selcs; 

while  (sel  !  =  ESC  tt  sel  !=  1  \r’)  { 

diaension^an+^hsel-l^mselcs,  tht,  twd); 
vx  *  6+(*hsel-l)*12; 

open_window(vx,  2,  vx+wd+1,  ht+3,  MENUFG ,  MENUBG,1,0); 
sales  =  (an+*hsel-l)->mselcs; 
f or (vs el  *  1;  *selca;  vsel++)  { 

textcolor(enabled(an,*hsel, vsel)?MENUFG:DISABLEFG) ; 
cprintf (vsel  ==  1  ?  "  ’/.s"  :  "\r\n  ,/,sl,,*selcs++) ; 

} 

textcolor (MENUFG) ; 
sel  =  0; 

vsel  *  lastvsel[*hsel-l] ; 

while (sel  !=  ESC  tt  sel  !  =  'Nr'  tt  sel  !=  FWD  tit  sel  !=  BS  tt 
sel  !=  F4)  { 

•/light  (an,  *hsel,  vsel,  QN); 
sel  =  enabled(mn,  *hsel,  vsel)  ? 

getkeyO  : 

(sal  **  UP  ?  UP  :  DN) ; 

sales  =  (an+*hsel-l)->aselcs; 
for (vs  =  1;  eselcs;  vs++,  selcs++)  { 
if (enabled (an ,*hsel, vs)  tt  tolower(**seics)  ==  tolower(sel))  { 
vsel  a  vs; 

vlight(an,ehsel,  vsel,  OH); 

sel  =  *\r’ ; 

break; 

> 

> 

switch(sel)  { 
case  UP  : 

vlight(an,  *hsel,  vsel,  OFF); 
if(vsel  >  1) 
vsel; 

else 

vsel  3  ht; 

vlight(an,*hsel,  vsel,  ON); 
break; 
case  DH  ; 

vlight(an,  *hsel,  vsel,  OFF); 
if (vsel  <  ht) 
vsel++; 

else 

vsel  =  1; 

vlight(mn,  *hsel,  vsel,  ON); 
break; 
case  ’\r’  ; 

if ((an+*hsel-l)->func  [vsel-1]  =-  NULL)  { 
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if (test_option(mn,ehsel,vsel) ) 
clear_option(mn,*hsel, vsel) ; 

else 

set _opt ion (mn.ehsel, vsel) ; 
vlight (mn ,  *hsel,  vsel,  ON); 
ael  *  0; 

> 

else 

close.windovO ; 
break; 
case  FWD  : 
close_window() ; 
light (mn, *hsel, OFF) ; 
il ( (mn+*hs el ) ->mname ) 

(*hsel)++; 

else 

♦heel  =  1; 
light(an,*hsel,ON) ; 
break; 
case  BS  : 
dose_window() ; 
light(mn,  *hsel,  OFF); 
il(*hsel  ==  1) 

while ( (mn+*hsel) ->mname) 

(♦hsel)++; 

else 

— (*hsel) ; 

light (mn,*ha el,  ON); 

break; 

case  ESC  : 

dose.windowO ; 
break; 
default  : 

putch(BELL) ; 
break; 

> 

> 

> 

return  sel  ==  ESC  ?  0  :  vsel; 

> 

/♦♦•♦♦compute  a  menu's  height  and  width**e*V 
static  void  dimens ion (char  *sl[],  int  *ht,  int  *vd) 

♦ht  *  ewd  «  0; 

while (si  tt  si  [♦ht])  { 

♦wd  =  max(*wd,  (unsigned)  strlen(sl  [eht])  +  2); 
(*ht)++; 

> 

> 
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/*****light  a  horizontal  menu  selection*****/ 
static  void  light (MENU  *mn,  int  hsel,  int  onoll) 

{ 

text color (onofl  ?  SELECTFG  :  MENUFG) ; 
textbackground(onoff  ?  SELECTBG  :  HENUBG) ; 
gotoxy((hsel-l)*12+6,  1); 
cprinti ( (nrn+hs  el- 1 ) ->mname ) ; 

> 

/*****hightlight  a  vertical  menu  selection*****/ 

static  void  vlight(MEHU  *mn,  int  hsel,  int  vsel,  int  onofl) 

textcolor(onoff  ?  SELECTFG  :  enabled(mn, hsel, vsel)  ?  MENUFG  :  DISABLEFG); 
text background (onofl  ?  SELECTBG  :  HENUBG); 
gotoxy(l , vsel) ; 

cprintfC  '/s",  *((mn+hsel-l)->mselcs+vsel-l v ; 
lastvselChsel-i]  =  vsel; 

> 
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/****♦  modem. h  ***** 

*****  Modem  Definitions  *****/ 

/♦♦♦♦♦Hayes  modem  control  strings  ****♦/ 

♦define  RESETMODEM  "ATZ/r'" 

♦define  IIITKODEM  ,,ATfcClE0Mls7=60sll=55VlX3s0=0/r"' 
♦define  HAIGUP  H'+++-ATH0/r'ATS0=0/r'" 

♦define  ANSWER  "ATS0=l/r" 

/*****  prototypes  *****/ 
void  initializemodem(void) ; 
void  call_remote(char  ♦); 
void  anwser_modem(void) ; 
void  hangup (void) ; 
void  release.modem(void) ; 


/***************************************************** 

♦File  :  opt ions. c 

♦By  :  Jim  Coppola 

*  :  19  Aug  92 

*  :  Version  1.0 

eUpdate: 

♦By 

* 

♦Description:  Contains  functions  to  get  receiver,  get  satellite, 

♦  get  logging  info,  and  to  get  system  time. 

♦ 

♦  Global  Variables  Used  :  INITIAL,  REMOTE,  REMOTE.SLAVE 

♦  Global  Variables  Changed  :  receiver,  DOS_TIMER_UP ,  IRIG.UP, 
♦B.BIRD,  FIRST,  sat[],  PRINT.TRIGGER,  PRINT_LOG_UP,  DISK.TRIGGER, 
♦disk.time,  disk.count,  print.time,  print. count 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦/ 

♦include  <conio.h> 

♦include  <string.h> 

♦include  "system. h" 

♦include  "vindow.h" 

♦include  "menu.h" 

/♦♦♦♦♦function  prototype*****/ 
void  clear_all(void) ; 

/♦♦♦♦♦menu  selections*****/ 
char  *recvselectionsn  =  { 

"GPM 

"Raytheon  " , 

"ASC  30 
"Remote  " , 

NULL 

>; 
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char  etimeselections []  =  { 
"MS-DOS  " , 

"IRIG 

TOLL 

>; 


char  *satselections  □  5  { 
"A1  " , 

"A2  ", 

"A3 

"B4 

"B6 

"B6 

"B7 

"B8 

"B9  " , 

"BIO  " , 

"Bll 

"B12 

"B13 

"B14  " , 

"Othar  " , 

"Remote  " , 

TOLL 

>  ; 

char  eremselcsQ  &  { 

"Start  Master  ", 

"Start  Slave  " , 

"Stop  Master  ", 

"Stop  Slave  ", 

TOLL 

>  ; 

char  *logs elect ions C]  =  { 
"Trigger  Print  ", 
"Timed  Print  ", 
"Trigger  Disk 
"Timed  Disk 
TOLL 
>  ; 

char  *controlselections[] 
"GPM  Start  ", 

"GPM  Window  ", 

"Ray  Start  ", 

"Ray  Oliset  ", 

"Remote  " , 

TOLL 


/*«***{ unction  declarations  lor  functions  called  ahen  menu  items 
are  selected*****/ 

int  gp(void) , ray (void) ,a30p(void) .rstub(void) ; 
int  manual (void) .irg(void) ; 

int  al() ,a2() ,a3() ,b4() ,bS() ,b6() ,b7() ,b8() ,b9() ,blO() ,bll() , 
bl2() ,bl3() ,bl4() , other () ,remote_stub() ; 
int  rm(void) ,rs(void) .krm(void) ,krs(void); 
int  tprnt(void)  .prat(void)  .tdsc(void)  ,dsc(void) ; 
int  gpmst(void) ,gpmcont(void) ,rayst (void) .raycont (void) ; 

■tatic  int  (*recfuncs[3)()={gp.ray,a30p,rstub}; 
static  int  (*timefuncsD)()={manual,irg}| 

static  int  (*satfuncs[3)()={al,a2,a3,b4,b5,b6,b7,b8,b9,bl0,bll, 
bl2 ,bl3 ,bl4 , other ,remote_stub> ; 
static  int  (*remluncsn)()={rm,rs1kr»,krs>; 
static  int  (*logfuncs[3)()={tprnt,prnt,tdsc,dsc}; 
static  int  (*contfuncs[3)()={gpmst,gpmcont,rayst, raycont, rstub>; 

/*****main  menu  items  displayted  on  top  line*****/ 
static  MENU  mn[]  =  { 

{"Receiver", recvselections.recfuncs}, 

{"Time" , timeselections , timefuncs} , 

{"Satellite" , satselections , satluncs} , 

{"Remote"  .remselcs.remfuncs}, 

{"Log" , logselect ions , logf uncs} , 

{"Control" , controlselections , contluncs>, 

{MULL} 

>; 


/*****s«ts  default  menu  options,  kinda  a  cluge,  init  should  call  the 
menu  functions  themselves,  update  if  version  tao  is  ever  done*****/ 
void  set_default_options(void) 

{ 

gpO; 

set .option (mn ,2,1); 
set_option(mn,3,14) ; 
disable_selection(mn, 3 ,16) ; 
disable_selection(mn, 1 ,4) ; 
disable_selection(mn,4,3) ; 
disable_selection(mn,4,4) ; 
disable_selection(mn,6,5) ; 

> 

/*****call  menu  softaare  to  display  these  menu  data  structures*****/ 
void  get.options(void) 

{ 

executive (mn) ; 

> 

/*****set  up  for  gpm  receiver*****/ 
int  gp(void) 

{ 
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receiver  -  0; 
enable_selection(mn,8, 1) ; 
enable_selection(mn,6,2) ; 
disable_8election(mn, 6 , 3) ; 
disable_selection(mn,6,4) ; 
dear.opt  ion (mn  ,1,2); 
clear. option(mn, 1,3); 
■•t_option(mn,l,l) ; 
if (IIITIAL) 

return  FALSE; 
else 

return  TRUE; 


/*****raytheon  receiver  selected*****/ 
int  ray (void) 

i 

receiver  =  1; 
enable_selection(nm,6,3) ; 
enable_selection(mn,6,4) ; 
disable_selection(mn,6 , 1) ; 
disable.selection(mn,6,2) ; 
clear_option(mn, 1,1); 
clear_option(mn, 1,3); 

**t_option(mn ,1,2) ; 
if (IIXTIAL) 
return  FALSE; 
else 

return  TRUE; 


/*****using  asc-30  as  data  input  device*****/ 
int  a30p(void) 

{ 

clear_option(mn, 1,1); 
dear_option(mn,  1,2); 
set_option(mn,l,3) ; 
receiver  s  2; 
if (port .up (beacon.port ) ) 
closeport(beacon.port) ; 
if  (port_up(gpin_control_port) ) 
doseport(gpm.control.port) ; 

DQS.TIMER.UP  =  FALSE; 

IRIG.UP  =  FALSE; 
if (IVITIAL) 
return  FALSE; 
else 

return  TRUE; 


/*****enabled  only  vhen  remote  slave,  displays  an  error  message 


119 


to  user*****/ 
int  rstub(void) 

{ 

*rror_aessage{"Remote  Master  Controlling  Reciever ! ! ") ; 
return  FALSE; 


/*****#tart  remote  master  software*****/ 
int  rm(void) 

if ((r*c*iv*r==0)  II  (receiver  ==  1))  { 
reaote_master() ; 
if (REMOTE) { 

set _opt ion (mn ,4,1); 
dear_option(mn,4,2)  ; 
disable_selection(mn,4,2) ; 
diaable_selection(nm,4, 1) ; 
enable_eelection(mn,4,3) ; 
enable_selection(mn,6,5) ; 
disable.* elect ion (mn,6, l) ; 
disabl*.selection(mn,6,2) ; 
di*able_selection(mn,6,3) ; 
disable_selection(mn,6,4) ; 
return  TRUE; 

> 

els* 

return  FALSE; 

} 

els*  { 

*rror_message("Cannot  Run  Remote  With  ASC-30  Reciever"); 
return  FALSE; 

> 


/eeeeekill  remote  master  function*****/ 
int  krm(void) 

< 

kill.remote.master () ; 
dear. opt  ion  (mn  ,4,1); 
enable_sel*ction(mn,4,2) ; 
enabl*_selection(mn,4, 1) ; 
dis^bl*_s*l*ction(mn,4,3) ; 
disable_selection(mn, 6 , 5) ; 
enable_sel«ction(mn,8, 1) ; 
*nabl*_s*l*ction(mn,6,2) ; 
*nabl*_selection(mn,6,3) ; 
*nable_selection(mn,6 ,4) ; 
return  TRUE; 


/*****kill_r*mot*  slave  routine,  just  adjusts  menu  selections  currently****/ 
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int  krs(void) 

{ 

int  il; 

linishO;  /*****current  version  just  quits.  Stull  alter  this 
lixes  all  menu  stull  il  later  versions  have  someting  to  do 
belore  quitting  the  program  **♦♦♦/ 

//  kill_remote_slave() ; 
clear. opt ion (mn , 4,2); 
disable.selection(mn,4,4) ; 
enable_selection(mn,4, 1) ; 
enable_selection(mn,4,2) ; 
enable_selection(mn, 1 , 1) ; 
enable_selection(mn,i,2) ; 
enable_selection(mn, 1 ,3) ; 
enable_selection(mn,2,2) ; 
disable_selection(mn, 1,4); 
clear. opt ion (mn, 1,4); 
set_option(mn, 1, 1) ; 
lor(il=l;il<16;il++) 

enable_selection(mn,3,il) ; 
disable_selection(mn,3, 16) ; 
clear_option(mn,3, 16) ; 
set_option(mn,3, 14) ; 
enable_selection(mn,6, 1) ; 
enable_selection(mn,6 , 2) ; 
enable.s elect ion (mn, 6, 3) ; 
enable_selection(mn,6,4) ; 
disable.selection(mn,6,5) ; 
return  FALSE; 


/♦♦♦♦♦start  remote  slave  routinee***e/ 
int  rs(void) 

{ 

int  il; 

remote.slaveO ; 

il (REMOTE.SLAVE)  { 
disable.selection(mn,4,l) ; 
disable_selection(nm,4,2) ; 
disable_selection(mn,4,3) ; 
enable.selection(mn,4,4) ; 
■et_option(mn,4,2) ; 
disable.selectionCan, 1 , 1) ; 
disable_selection(mn, 1 ,2) ; 
disable.selectionCmn, 1 ,3) ; 
enable_selection(mn,l,4) ; 
disable.selectionCmn, 2, 2) ; 

IRIGJJP  *  FALSE; 

DOS.TIMER.UP  =  TRUE; 
dear.opt  ion  (mn  ,1,1); 
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clear_option(mn, 1 ,2) ; 
cl ear .opt ion (mn, 1,3); 
set_option(an, 1 ,4) ; 
dear.allO ; 
for(il=l;il<16;il++) 

disable_selection(nn,3,il) ; 
enable_selection(mn,3,16) ; 
set_option(mn,3, 16) ; 
disable_selection(mn,6,i) ; 
dieable_selection(mn,6,2) ; 
diaable_aelection(mn,6,3) ; 
disable_selection(mn,6,4) ; 
enable_aelection(an, 6, 6) ; 
return  TRUE; 

> 

•ls« 

return  FALSE; 


/eeeeedos  tiaer  routine*****/ 
int  annual (void) 


DOS.TIMER.UP  =  TRUE; 
if (IRIG_UP) 
restore.irigQ ; 
■•t_option(an,2, 1) ; 
dear.opt  ion  (an ,  2 , 2 ) ; 
If(IIITIAL) 
return  FALSE; 
elee 

return  TRUE; 


/*****eet  syetea  up  to  use  IRIG  timer*****/ 
int  irg(void) 

{ 

int  go  =  TRUE; 

DOS.TIMER.UP  =  FALSE; 
while  (go)  { 

my_notice("Initializing  IRIG"); 
go  «  etart.irigO; 
close.windowQ ; 
if ( !go) 

go  *  yesno("Try  to  initialize  IRIG  again?  "); 

else 

go  =  FALSE; 

> 

if(IRIG_UP)  { 

clear. option (mn, 2, 1) ; 
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set.opt ion (am  >2,2); 
if (IIITIAL) 
return  FALSE; 

•lee 

return  TRUE; 

> 

else  { 

DOS.TIMER.UP  =  TRUE; 
return  FALSE; 

> 

> 

/eeeeeel ear  out  all  satellite  menu  selections*****/ 
void  clear.all(void) 

{ 

int  il; 

for(il=l;il<16;il++) 
clear. opt ion (mn , 3 , i 1 ) ; 

> 

/*****the  following  set  the  sat  name  display  to  the  selected  item*****/ 
int  al() 

{ 

B.BIRO  »  FALSE; 

FIRST  *  TRUE; 
sat [0]  *  'A'; 
sat  [1]  *  '  1  ’ ; 
sat [2]  *  '  '; 
clear_all() ; 
set_option(mn,3, 1) ; 
if (IIITIAL) 
return  FALSE; 
else 

return  TRUE; 

> 

int  a2() 

i 

B.BIRD  =  FALSE; 

FIRST  *  TRUE; 
sat [0]  *  'A'; 
sat [1]  *  *2’; 
sat  [2]  »  '  '; 
elear.allO; 

•et_option(mn,3,2) ; 
if (IIITIAL) 
return  FALSE; 
else 

return  TRUE; 

> 
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int  a3() 

< 

B_BIRD  *  FALSE; 
FIRST  =  TRUE; 

•at [0]  «  'A'; 

•at  Cl]  «  ’3'; 

•at [2]  *  '  '; 
clear.allO ; 
••t_option(mn,3,3) ; 
if (IIITIAL) 
return  FALSE; 

•la* 

return  TRUE; 

> 

int  b4() 

B_BIRD  ■  TRUE; 

FIRST  »  TRUE; 

•at [0]  *  'B'; 

•at [1]  *  '4'; 

■at [2]  *  '  »; 
clear.allO ; 

■et  .opt  ion  (mu.,  3, 4) ; 
if (IIITIAL) 
return  FALSE; 

•lae 

rttum  TRUE; 

> 

int  bS() 

{ 

B.BIRD  *  TRUE; 

FIRST  =  TRUE; 

■at [0]  *  ’B’ ; 

■at [1]  «  '5*; 

•atC2]  *  '  *; 
clear.allO ; 
■et_option(mn,3,5) ; 
if (IIITIAL) 
return  FALSE; 
else 

return  TRUE; 


int  b6() 

{ 

B.BIRD  =  TRUE; 
FIRST  =  TRUE; 
■at CO]  «  'B* ; 
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sat[l]  *  *8'; 

•at[2]  =  ' 
dear.allO ; 
set_option(mn,3,6) ; 
if (IVITIAL) 
return  FALSE; 
else 

return  TRUE; 


int  b7() 

{ 

B_BIRD  *  TRUE; 

FIRST  *  TRUE; 
sat  CO]  =  *B*; 
sat [1]  =  *7'; 
sat [2]  =  *  >; 
dear,  all  () ; 
set.opt ion (mn ,3,7); 
if (IVITIAL) 
return  FALSE; 
else 

return  TRUE; 

> 

int  b8() 

B.BIRD  =  TRUE; 

FIRST  =  TRUE; 
sat [0]  =  ’B* ; 
sat [i]  =  *8*; 
sat [2]  =  *  ’; 
dear.allO ; 
set_option(mn,3,8) ; 
if (IIITIAL) 
return  FALSE; 
else 

return  TRUE; 


int  b9() 

B.BIRD  =  TRUE; 

FIRST  *  TRUE; 
sat [0]  =  »B»; 
sat[l]  *  *8'; 
sat [2]  =  '  '; 
d ear. all  0 ; 
set .opt ion (mn , 3 , 9 ) ; 
if (IVITIAL) 
return  FALSE; 
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else 

return  TRUE; 

} 

int  blO() 

{ 

B_BIRD  =  TRUE; 

FIRST  =  TRUE; 

•at [0]  =  'B'; 

•at  Cl]  =  '  1  ’ ; 

•at  C2]  *  'O'; 
cl«ar_all() ; 
»et_option(mn,3, 10) ; 
if (IIITIAL) 
return  FALSE; 

•la« 

return  TRUE; 

> 

int  bll() 

B_BIRD  =  TRUE; 

FIRST  *  TRUE; 

•at CO]  »  'B'; 

•at  Cl]  =  *1'; 
amt [2]  »  *1'; 
cl«ar_all(); 

■et.opt ion (mn ,3,11); 
if (IIITIAL) 
return  FALSE; 

•la« 

return  TRUE; 

> 

int  bl2() 

B.BIRD  x  TRUE; 

FIRST  =  TRUE; 

■at CO]  x  »b>; 

•at  Cl]  =  ’  1 ' ; 

•at C2]  *  »2* ; 
clear.alK); 
■•t_option(mn,3, 12) ; 
if (IIITIAL) 
return  FALSE; 
elae 

return  TRUE; 

> 

int  bl3() 

{ 
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B.BIRD  =  TRUE; 

FIRST  =  TRUE; 

•at  [0]  =  '  B  ’  ; 

•at  Cl]  =  *1*; 

•at [2]  =  '3'; 
clear.allO ; 
•et_option(mn,3,13) ; 
if (IIITIAL) 
return  FALSE; 

•laa 

return  TRUE; 

> 

int  bl4() 

{ 

B.BIRD  =  TRUE; 

FIRST  =  TRUE; 

•at [0]  =  'B'; 

•at  [1]  =  '  1 ' ; 

•at  [2]  =  ’4'; 
clear.allO ; 
•et.optionCmn, 3, 14) ; 
if (IIITIAL) 
return  FALSE; 
else 

return  TRUE; 


/***+*get  eat  name  from  user.  Assume  B  model  satellite*****/ 
int  other () 

char  sat.def [6] ; 
int  il; 

open.window (20,8,60,10, WHITE , GREEN , 1 , 2 ) ; 
gotoxy(l ,3) ; 

cputa( "Satellite  Model?  "); 

•at.defCO]  =  4; 
ny.cgeta (sat.def ) ; 
for(il=2; il<5; il++) 

•atCil-2]  =  sat.defCil]; 
if (sat  CO]  ==  'A’) 

B.BIRD  =  FALSE; 
else 

B.BIRD  =  TRUE; 
close.uindouO ; 
clear.allO ; 

■et_option(mn,3, 15) ; 
if (IIITIAL) 
return  FALSE; 
else 
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return  TRUE; 


> 

/****function  for  menu  selection  when  disabling  all  others  by 
remote_slave  function*****/ 
int  remote_s tub (void) 

{ 

error_message("Remote  Master  Setting  Satellite  Model!!"); 
return  FALSE; 

> 

/*****enable  trigger  printing*****/ 
int  tprnt(void) 


if (test_option(mn,5,l))  { 
clear_option(mn,S,l) ; 

PRIIT.TRIGGER  =  FALSE; 
if (INITIAL) 
return  FALSE; 
else 

return  TRUE; 

> 

else  { 

set_option(mn ,5,1); 

PRIHT_TRIGGER  =  TRUE; 
if (INITIAL) 
return  FALSE; 

else 

return  TRUE; 

> 

> 

/*****set  up  timed  print*****/ 
int  prnt(void) 

{ 

charpmin[6],  *po inter; 
int  temp; 

if (test_option(mn,5 ,2) )  { 
clear_option(mn,5,2) ; 

PRIMT_LOG_UP  =  FALSE; 
if (IHITIAL) 
return  FALSE; 
else 

return  TRUE; 

> 

else  -C 

set_option(mn,5 ,2) ; 

open.window (20,8,70, 10, WHITE, GREEN , 1,2); 
gotoxy(l ,3) ; 

cputs("Minutes  Between  Printouts?  (1  to  120)  :  "); 
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pminCO]  =  3; 

ay_cgets(pmin) ; 

pointer  =  pain  +  2; 

temp  =  atoi (pointer) ; 

ifCCteap  <  1)  I  I  (temp  >  120))  { 

error_message("Illegal  Log  Time!!!!!  Try  Again."); 
close_sindow() ; 
return  FALSE; 

> 

else  { 

print_time  =  (60  *  temp)*180/10  +  1; 
print_count  =  3*180/10+1; 

PRIIT_L0G_UP  *  TRUE; 
cloBe_windos() ; 
if(IHTIAL) 
return  FALSE; 
else 

return  TRUE; 

> 

} 

> 

/*****enable/disable  trigger  disk.  Function  toggles  each  time  when 

selected*****/ 

int  tdsc(void) 

{ 

if (test_option(mn,5,3))  { 
dear.opt  ion  (mn  ,5,3); 

DISK_TRIGGER  =  FALSE; 
if  (IHITIAL) 
return  FALSE; 
else 

return  TRUE; 

> 

else  { 

set_option(mn,5,3) ; 

DISK.TRIGGER  =  TRUE; 
if (IHITIAL) 
return  FALSE; 

else 

return  TRUE; 

} 

} 

/*****«nable  timed  disk  saving*****/ 
dsc(void) 

{ 

charpminCe],  *pointer; 
int  temp; 


if(test_option(mn,5,4))  { 
clear. opt ion (mn, 5,4) ; 

DISK.LOG.UP  =  FALSE; 
if (INITIAL) 
return  FALSE; 
elae 

return  TRUE; 

> 

else  { 

aet_option(mn,5,4) ; 

open.window (20 , 8 , 70 , 10 , WHITE , GREEN ,1,2); 
gotoxy(l,3) ; 

eputs ("Minutes  Between  Disk  Saves?  (1  to  120)  :  "); 
pain [0]  =  3; 

■jr.cgets  (pmin) ; 

pointer  =  pmin  +  2; 

temp  =  atoi(pointer) ; 

if ((temp  <  1)  1 1  (temp  >  120))  { 

error.meesage("Illegal  Log  Time!!!!!  Try  Again."); 
close.windowQ ; 
return  FALSE; 

> 

elae  { 

diak.time  =  (60  *  temp) *180/10  +  1; 
disk.count  =  3*180/10  +  1; 

DISK.LOG.UP  =  TRUE; 
close.windouO ; 
if (INITIAL) 
return  FALSE; 
elae 

return  TRUE; 

> 

> 

> 

/*****gpm  start  window*****/ 
int  gpmat(void) 

int  temp; 

temp  *  gpm.startO; 
if (! temp) 
return  FALSE; 
if (! INITIAL) 
return  TRUE; 
elae 

return  FALSE; 

> 

/*****gpm  control  window*****/ 
int  gpmcont(void) 
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gpm.controlO ; 
if (! IIITIAL) 
return  FALSE; 

else 

return  TRUE; 

> 

/*+**+c&ll  ray  start  software*****/ 
int  ray st (void) 

{ 

ray_etart() ; 
if (IIITIAL) 
return  FALSE; 

else 

return  TRUE; 

> 

/*****c&ll  ray  freq  offset  function*****/ 
int  raycont(void) 

{ 

ray_control() ; 
if (IIITIAL) 
return  FALSE; 

else 

return  TRUE; 
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/*  *************  *****  *****  ***************************** 

♦File  :  pio.h 

♦By  :  Jim  Coppola 

♦  :  25  Jul  92 

♦  :  Version  1.0 

♦Update: 

♦By 

♦ 

♦Description:  Header  file  lor  the  parallel  port  function  listed  in 

♦  pio.c. 

* 

♦ 

* 

*****************************************************  */ 

extern  char  *nextserialin,  *nextserialout; 

/♦♦♦♦♦parallel  prototypes*****/ 

void  initportQ; 
int  getbitQ ; 

void  clear_parallel_queue(); 
void  closeparallel() ; 

/♦  ♦♦♦♦serial  macros****  */ 

Adeline  bit_ready()  (nextparallelin!=nextparallelout) 

/*  ****parallel  port  addresses****  */ 

/♦♦♦♦♦parallel  port  address  :  set  lor  CPM/P  operation  0x310*****/ 

Adeline  ADDRESS  0x310 

#def ine  DATA0UT  ADDRESS 
*deline  ADATAII  ADDRESS 
«deline  BDATAIH  ADDRESS  +  1; 

Adeline  CONTROL  0x313 

/♦♦♦♦♦parallel  interrupt  values*****/ 

Adeline  IRQEIABLE  0xF7 

Adeline  IRqDISABLE  0x08 

Adeline  PARALLELINT  OxOB 

Adeline  PIC01  0x21  /*8259  interrupt  controller*/ 

Adeline  PICOO  0x20  /*8259  interrupt  controller*/ 

Adeline  EOI  0x20  /*end  o 1  interrupt*/ 


/♦♦♦♦♦parallel  input  interrupt  buller*****/ 
Adeline  PARALLEL8UFFERSIZE  1024 
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/****************************************************************** 

*  File  :  pio.c 

*  by  Jim  Coppola 


15  Jttl  92 


File  where  all  24  bit  pio  port  control  functions  are  kept 
Functions : 

initport() 

getbitO 

putbitO 

setportoutO 

setportinO 


Global  Variables  Used  :  **N0NE** 
Global  Variables  Changed  :  PARALLEL_UP 


•include  <dos.h> 

•include  <conio.h> 

•include  <stdio.h> 

•include  "pio.h" 

•include  "timer. h" 

•include  "system. h" 

•define  TRUE  1 
•define  FALSE  0 

int  PARALLELTIMEOUT  =  5; 

static  char  parallel.buff erCPARALLELBUFFERSIZE] ; 
char  enextparallelin  =  parallel.buffer; 
char  enextparallelout  =  parallel_buff er; 
int  parallel.count ; 

static  void  (interrupt  far  *oldparallelint)(void) ; 
static  void  interrupt  far  newparallelint(void) ; 

/*****clear  parallel  input  buffer*****/ 
void  clear_parallel_queue() 
i 

nextparallelin  =  nextparallelout  =  parallel_buffer; 
parallel.count  =  0; 

> 


/*****interrupt  service  routine  for  parallel  input*****/ 
static  void  interrupt  far  newparallelint(void) 

int  c; 

outp(PICOO.EOI); 
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if (nextparallelin  ==  parallel.buffer  +  PARALLELBUFFERSIZE) 
nextparallelin  =  parallel_buff er ; 
c  «  inp(ADATAIH); 

*nextparallelin++  =  (char)  c; 
parallel.,  count ++ ; 


/♦♦♦♦♦initialize  parallel  port  and  set  up  interrupt  vector(s)*****/ 

void  initportO 

{ 

PARALLELTIMEOUT  =  5; 

/♦♦♦♦♦set  up  interrupt  vector*****/ 

outp(PIC01 ,  Cinp(PICOl)  I  IRQDISABLE) ) ; 
oldparallelint  =  getvect(PARALLELIHT) ; 
setvect(PARALLELIHT,  nevparallelint) ; 
outp(PIC01 ,  (inp(PICOl)  A  IRQENABLE)); 

/♦configure  port*/ 
outp(COHTROL.OxBl) ; 
outp ( COHTROL , 0x09 ) ; 

/♦♦♦♦♦fluch  existing  parallel  interrupts*****/ 
inp(ADATAIH) ; 

/♦♦♦♦♦clear  serial  buffer*****/ 
clear_parallel_queue() ; 

PARALLEL_UP  *  TRUE; 


/♦♦♦♦♦restore  the  interrupt  vector*****/ 

void  restore_parallelint(void) 

{ 

if (oldparallelint) 

■etvect(PARALLELINT,  oldparallelint) ; 
PARALLEL.UP  =  FALSE; 

> 

/♦♦♦♦♦close  the  port  by  resetting  vector*****/ 
void  closeparallelO 
{ 

restore_parallelint() ; 

> 

/♦♦♦♦♦read  a  character  from  the  input  buffer*****/ 
int  getbitO 
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{ 

int  rat; 

■et_timer(0 .PARALLELTIMEOUT) ; 
while(!bit_ready())  { 

if (timed. out (parallel.timer) ) 
riturn  FALSE; 

I 

> 

if  (naztpar&llalout  ==  parallel.buff er  +  PARALLEL8UFFERSIZE) 
nextparallelout  =  parallel.buffer ; 

— parallel. count ; 

rat  *  *nextparallelout++ ; 

ratum  (rat); 

> 

/♦♦♦♦♦conf jgure  portA  f or  output,  not  used  in  system*****/ 
void  setportoutQ 
{ 

int  config  »  OrAB; 
outport (COITROL , config) ; 

> 

/♦•♦♦♦configure  portA  for  input,  used  to  initialize  port.  Probably  not 
needed,  but  put  it  before  card  was  working.*****/ 
void  aetportinO 

int  config  =  0x9B; 

outport (COITROL, conf ig) ; 

> 

/♦♦♦♦♦set  a  reset  command  to  the  command  register  of  the  PIO*****/ 
void  resetportO 

int  config  *  OxlB; 

outport (COITROL, config) ; 
aetportinO ; 

> 

/•♦♦♦•write  data  to  the  A  port.  Hot  used  in  system*****/ 
void  putbit(bits) 
int  bits; 

outport (DATAOUT, bits) ; 

> 
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/*  **************************************************** 

♦File  :  port.h 

♦By  :  Jim  Coppola 

♦  :  19  Jul  92 

♦  :  Version  1.0 

♦Update : 

♦By 

♦ 

♦Description:  Header  file  tor  the  serial  port  function  listed  in 

♦  port.c.  Code  modified  from  the  booh  extending  turbo  C  professional 

♦  by  A1  Stevens. 

♦ 

* 

* 

♦ 

* 

*****************************************************  */ 

/♦  ♦♦♦♦serial  prototypes  */ 

void  openport (unsigned, int , int , int , int) ; 

int  get_char(unsigned  port); 

int  send_ char (unsigned  port, unsigned  char  c); 

int  xmit.rdy (unsigned  port); 

int  char_rdy(unsigned  port); 

void  elear_serial_queue(unsigned  port); 

void  clear.xmit.queue (unsigned  port); 

void  closeport (unsigned  port); 

/♦  ♦♦♦♦serial  port  addresses****  */ 

/♦♦♦♦♦8250  UART  base  port  address  :  C0M1  =  3F8,  COM2  =  2F8*****/ 

♦define  C0M1  0x3F8 
♦define  IIT1  OxOC 

♦define  COM2  0x2F8 

♦define  IIT2  OxOB 

♦define  COM  0x14  /*bios  com  interrupt*/ 

/♦♦♦♦♦serial  interrupt  values*****/ 

♦define  IRQEIB1  OxEF 

♦define  DISABLE1  0x10 

♦define  XRQEIB2  0xF7 
♦define  DISABLE2  0x08 

♦define  PIC01  0x21  /*8259  interrupt  controller*/ 

♦define  PIC00  0x20 

♦define  E0I  0x20  /*end  of  interrupt*/ 
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/•♦♦♦•line  status  register  values*****/ 

♦define  XMIT_DATA_READY  0x20 

/*****nodea  control  reguster  vlaues*****/ 

♦define  DTR  1 
♦define  RTS  2 
♦define  0UT2  8 

/*****ASCII  serial  control  characters*****/ 

♦define  SOH  1 
♦define  EOT  4 
♦define  ACK  6 
♦define  MAK  Ox IS 
♦define  CAR  0x18 
♦define  CR  OxOD 

/♦****  interrupt  enable  register  signals*****/ 

♦define  DATAREADY  1 

/♦♦•♦♦serial  input  interrupt  buffer*e*ee/ 

♦define  SERIALBUFFERSIZE  1024 

/***************************************************** 

♦File  :  port . c 

♦By  :  Jim  Coppola 

♦  :  01  Feb  92 

♦  :  Version  1.0 

♦Update: 

♦By 

♦ 

♦Description:  contains  interrupt  driven  port  routines  to  control 

♦  the  RS-232  ports.  C0M1  and  COM2  ports  are  supported.  Receive  is 

♦  interrupt  driven  with  a  1024  character  buffer.  Transmit  is  polled 

♦  output,  it  waits  until  xmit  buffer  is  empty  to  avoid  ovrwrites. 

♦ 

*  Global  Variables  Used  :  None 

*  Global  Variables  Changed  :  None 

* 

♦ 

**ee**************************************************/ 

♦include  <dos.h> 

♦include  <conio.h> 

♦include  <stdio.h> 

♦include  "system. h" 

♦include  "port.h" 

♦include  "timer.h" 

♦define  TRUE  1 
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•define  FALSE  0 


/♦♦♦♦♦set  up  receive  buffers  ior  interrupt  service  routine*****/ 
•tatic  char  buff 1[SERIALBUFFERSIZE] .buff 2[SERIALBUFFERSIZE] ; 
static  char  xbuff 1 [SERIALBUFFERSIZE] ,xbuff2[SERIALBUFFERSIZE] ; 


/♦♦♦♦♦pointers  for  queue  management*****/ 

char  *nextinl  =  buffi; 

char  *nextoutl  =  buffi; 

char  *nextin2  =  buff 2; 

char  *nextout2  =  buff 2; 

char  *nextxmitinl  =  xbuff 1; 

char  *nextxmitoutl  =  xbuff 1; 

char  *nextxmitin2  =  xbuff 2; 

char  *nextxmitout2  =  xbuff 2; 


/♦♦♦♦♦package  variables*****/ 

int  TIMEOUT.  MODEMCTL ,  LIHESTATUS ,  MODEMSTATUS; 

int  IVTIOEVT,  IHTEH ABLE ,  RXDATA ; 

/*****isr  declarations*****/ 
static  void  (interrupt  far  *oldintl) (void) ; 
static  void  (interrupt  far  *oldint2) (void) ; 
static  void  interrupt  far  newintl(void) ; 
static  void  interrupt  far  nevint2(void) ; 


/♦♦♦♦♦clear  xmit  buffer*****/ 
void  dear.xmit.queue (unsigned  port) 

{ 

if (port  ■»  1)  { 

nextxmitinl  *  nextxmitoutl  *  xbuff 1; 

> 

else  { 

nextxmitin2  =  nextxmitout2  =  xbuff2; 

> 


/♦♦♦♦♦clear  serial  input  buffer*****/ 
void  dear.serial.queue (unsigned  port) 

if (port  ==  1)  { 
next ini  =  nextoutl  =  buffi; 

> 

else  { 

nextin2  =  nextout2  =  buff 2; 

> 


/***♦* interrupt  service  routine  for  serial  input,  coml 
and  com2  supported.  This  one  is  for  coml*****/ 
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static  void  interrupt  far  newintl (void) 
int  c; 

outp(PICOO.EOI); 

if (next ini  ==  buffi  +  SERIALBUFFERSIZE) 
nsxtinl  =  buffi; 
c  *  inp(COMl) ; 

•nextinl++  »  (char)  c; 


/♦♦•♦♦interrupt  ssrvics  routine  for  serial  input  com2*****/ 
static  void  interrupt  far  nevint2(void) 

int  c; 

outp(PICOO.EOI) ; 

if (nextin2  *=  buff2  +  SERIALBUFFERSIZE) 
nextin2  =  buff 2; 
c  «  inp(C0M2); 

♦nextin2++  =  (char)  c; 

> 

/♦♦♦♦•function  to  check  if  port  is  up  ♦♦♦♦♦/ 
int  port_up(unsigned  port) 

if (port  ==  1) 
return  C0M1.UP; 

else 

return  C0M2.UP; 

> 

/•♦••♦initialize  serial  port  and  set  up  interrupt  vector(s)eeeee/ 
void  openport (port , baud , bits , parity .stop) 
unsigned  port; 

int  baud,  bits,  parity,  stop; 
unsigned  char  pattern  =  0; 

/••♦♦♦remote  slave  should  have  longer  timeout***^/ 
if ( ! REMOTE.SLAVE) 

TIMEOUT  =  5; 

else 

TIMEOUT  =  8; 

suit ch (baud) 

case  110  :  pattern 

break; 

case  150  :  pattern 

break; 

case  300  :  pattern 

break; 


=  0x00; 
=  0x20; 
=  0x40; 
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svitch(parity) 

< 

case  0  :  pattern  =  pattern;  An o  parity*/ 

break; 

caae  1  :  pattern  =  pattern  I  0x08;  Aodd  parity*/ 

break; 

case  2  :  pattern  -  pattern  I  0x18;  Aeven  parity*/ 

break; 

default  :  pattern  =  pattern; 

> 

svitch(stop) 

{ 

case  0  :  pattern  =  pattern;  /*no  stop  bits*/ 

break; 

case  1  :  pattern  =  pattern  I  0x04;  Aone  stop  bit*/ 

break; 

default  :  pattern  =  pattern; 

> 

switch(bits) 

case  7  :  pattern  =  pattern  I  0x02; 

break; 

case  8  :  pattern  =  pattern  I  0x03; 

break; 

default  :  pattern  =  pattern  I  0x02; 

} 

A****use  dos  interrupt  to  set  port  parameters*****/ 
_DX  «  port-1; 

-AH  =  0; 

_AL  =  pattern; 
geninterrupt (CON) ; 

/*****set  up  interrupt  vector*****/ 
if  (port  ==  1)  •( 

M0DENCTL  a  CONI  +  4; 

IITEIABLE  =  C0M1  +  1; 
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EXDATA  =  C0M1 ; 

INTIDENT  =  COM1  +  2; 

LINESTATUS  =  COM1  +  5; 

MODEMSTATUS  =  COM1  +  8; 
iKoldintl  ==  NULL) 

oldintl  =  getvsct(INTl) ; 
setvect(INTi,  nesinti); 

outp(MODEMCTL,  (inp(MODEMCTL)  I  DTR  I  RTS  I  0UT2)); 
outp(PIC01,  (inp(PICOl)  A  IRQENBi)); 
outpdNTENABLE.  DATAREADY) ; 

COMl.UP  =  TRUE; 

> 

•It*  { 

MODEMCTL  =  COM2  +  4; 

INTEHABLE  =  COM2  +  1; 

RXDATA  =  COM2; 

INTIDENT  =  COM2  +  2; 

LIHESTATUS  =  COM2  +  6; 

MODEMSTATUS  =  COM2  +  6; 
if(oldint2  ==  NULL) 

oldint2  =  getvect(INT2) ; 
setvect(INT2,  newint2) ; 

outp (MODEMCTL,  (inp (MODEMCTL)  I  DTR  I  RTS  I  0UT2)); 
outp(PIC01 ,  (inp(PICOl)  ft  IRQENB2)); 
outpdNTENABLE,  DATAREADY); 

C0M2_ UP  =  TRUE; 

> 

outp(PICOO,  EOI); 

/*♦***! luch  existing  srial  interrupts*****/ 
inp (RXDATA) ; 
inp (INTIDENT) ; 
inp(LINESTATUS) ; 
inp (MODEMSTATUS) ; 


/*****cleai  serial  buffer*****/ 
dear_serial_queue(port) ; 
dear_xmit_queue(port) ; 

> 


/*****restore  the  serial  interrupt  vector*****/ 
void  restore_serialint(unsigned  port) 

{ 

if (port  ==  1)  { 
if (oldintl) 

setvect (INTI , oldint 1 ) ; 
outp  (PICO  1 ,  (inp(PICOl)  I  DISABLED); 
C0M1.UP  =  FALSE; 

> 

else  { 

if (oldint2) 
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setvect(INT2,oldint2) ; 
outp(PIC01 ,  (inp(PICOl)  I  DISABLE2)); 

C0M2.UP  =  FALSE; 

> 

> 

/*****closa  the  serial  port  by  resetting  vector*****/ 
void  closeport(unsigned  port) 

restore.serialint(port) ; 

> 

/*****check  if  port  ready  ior  xmit  character*****/ 
int  xmit .ready (unsigned  port) 

{ 

unsigned  local.port; 


if (port  ==  1) 

local.port  *  C0M1; 

els  a 

local.port  =  COM2; 

if ((inp(local_port  +  6)  ft  XMIT_DATA_READ Y )  ==  0) 
return  FALSE; 

else 

return  TRUE; 

> 

/*****check  if  xmit  buffer  is  empty*****/ 
int  xmit.buff er.empty (unsigned  port) 

unsigned  local.port; 

if (port  ==  1)  { 

if (nextxmitinl  !=  nextxmitoutl) 
return  FALSE; 

else 

return  TRUE; 

> 

else  { 

if (nextxmitin2  !=  nextxmitout2) 
return  FALSE; 

else 

return  TRUE; 

> 

> 


/*****send  a  char  to  the  serial  port*****/ 
int  put.chai (unsigned  port.unsigned  char  c) 
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unsigned  local.port; 


if (port  *»  1) 

local.port  =  C0M1; 

else 

local.port  =  COM2; 

/*****t»ait  till  port  is  ready  lor  character*****/ 
set.tiaerCport .TIMEOUT) ; 

while ( ( inp (local.port  +  6)  *  XMIT.DATA.READY)  ==  0)  { 
if (timed.out (port ) ) 
return  FALSE; 

> 

outp(local_port,  c); 
return  TRUE; 

> 

/***#*check  for  character  waiting  in  input  buffer*****/ 
int  input.char.ready (unsigned  port) 

if (port  ==  1)  { 

if(nextinl  \-  nextoutl) 
return  TRUE; 

else 

return  FALSE; 

> 

else  { 

if(nextin2  !=  nextout2) 
return  TRUE; 

else 

return  FALSE; 

> 

> 

/*****if  character  in  xmit  queue,  then  send  it  to  port  for  xmit*****/ 
void  xmit.char (unsigned  port) 

{ 

if (port  ==  1)  { 

if (nextxmitinl  !=  nextxmitoutl)  { 

if  (nextxmitoutl  ==  xbuffl  +  SERIALBUFFERSIZE) 
nextxmitoutl  =  xbuffl; 

put.cbar (port , *nextxmitoutl++) ; 

> 

> 

else  { 

if (nextxmitin2  !=  nextxmitout2)  •{ 

if (nextxmitout2  ==  xbuff2  +  SERIALBUFFERSIZE) 
nextxmitout2  =  xbuff2; 

put.char (port , *nextxmitout2++) ; 

> 

> 
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> 


/•♦♦♦♦read  a  character  from  the  input  buiier*****/ 
int  get.char (unsigned  port) 

{ 

unsigned  char  ret; 

•et_timer(port .TIMEOUT) ; 
vhile( ! input_char .ready (port) )  { 
if (REMOTE)  { 

if (xmit_r*ady(remote_port))  •{ 
xmit.char (remote.port) ; 

} 

> 

if (timed_out(port))  { 
return  FALSE; 

> 

> 

if (port  ==  1)  { 

if  (nextoutl  ==  buffi  +  SERI ALBUFFERS I ZE) 
next out 1  =  buffi; 
ret  *  ♦nextoutl++; 
if (REMOTE)  { 

if ((xmit.buff er_empty(remote_port))  kk  (xait_ready(remote_port))) 
put.char (remote .port ,  ret) ; 

else  { 

if (nextxmitin2  ==  xbuff2  +  SERIALBUFFERSIZE) 
nextxmitin2  =  xbuff2; 

*nextxmitin2++  =  ret; 

> 

> 

return  (ret); 

> 

else  { 

if  (nextout2  ==  buff2  +  SERIALBUFFERSIZE) 
nextout2  *  buff 2; 
ret  *  *nextout2++; 
if (REMOTE)  { 

if ((xmit_buffer_empty(remote_port))  kk  (xmit_ready(remote_port))) 
put_char(remote_port,ret) ; 

else  { 

if (nextxmitinl  ==  xbuffl  +  SERIALBUFFERSIZE) 
nextxmitinl  =  xbuffl; 

•nextinl++  -  ret; 

> 

> 

return  (ret); 

> 

> 
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/*****fuction  to  check  and  see  il  a  character  is  ready  lor  calling 
routine*****/ 

int  char.rdy (unsigned  port) 
return  input_char_ready(port) ; 

> 
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/***************************************************** 
♦File  :  printer. c 

*By  :  Jim  Coppola 

*  :  22  Sep  92 

*  :  Version  1.0 

♦Update: 

♦By 

* 

♦Description:  Functions  to  control  the  printer 

* 

♦  Global  Variables  Used  :  None 

♦  Global  Variables  Changed  :  None 

♦ 

♦♦♦♦♦♦♦♦♦♦******♦♦♦♦**********************************/ 

•include  <bios.h> 

•include  "system. h" 

•include  "interupt.h" 

/**♦**  function  to  check  if  printer  is  up  and  ready  ***♦*/ 
int  printer  ready (void) 

int  status; 

status  *  biosprint (2, 0, print _port); 

if ((status  ft  0x01)  ||  (status  k  0x08)  ||  (status  ft  0x20)) 
return  FALSE; 

else 

return  TRUE; 

> 

/*♦♦♦*  initialize  printer  ♦♦♦♦♦/ 
int  initialize.printer(void) 

int  check; 

check  *  biosprint(l,0,print_port) ; 

check++;  /♦♦♦♦♦just  for  compiler  warning  ♦**♦*/ 

return  (printer_ready()) ; 

> 

/♦****  check  to  see  if  printer  busy  ♦♦*♦♦/ 
int  printer_busy(void) 

{ 

int  status; 

status  =  biosprint(2,0,print_port) ; 
status  fts  0x80; 
if (status  ==  0) 
return  TRUE; 

else 
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return  FALSE; 

> 

/***+  print  a  character  to  the  system  selected  printer  port  +++++/ 
void  print_char(char  char.in) 

int  status; 

while(printer.busyO) ; 

status  =  biosprint(0, char.in, print.port) ; 

status++;  /***just  to  get  rid  oi  compiler  warning  *****/ 

> 

/***•  print  a  string  to  the  system  selected  printer  port  **♦**/ 
void  printstring(char  ♦string_in) 

int  status; 
char  char. out; 

char.out  =  *(string_in++) ; 
while (char. out  !=  0)  { 
print_char( char.out) ; 
char.out  *  *(string_in++) ; 
if ( iprinter.ready)  { 
restore_keyboaxd() ; 

error_message("Printer  Error.  Terminating  Print."); 
intercept.keyboardC) ; 

> 

> 

> 
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/******************************************************** 

*  File  :  ray.c 

*  by  Jim  Coppola 

*  18  Jul  92 

*  version  1.0 

* 

♦Description:  Contains  functions  to  interface  to  the  GPM  beacon  port, 
♦receive  the  beacon  data,  then  call  update  routines  to  decode  and  display 
♦the  SCT  configuration. 

* 

*  Global  Variables  Used  :  update,  restart,  data,  index,  remote, 

*  remote.slave, 

*  Global  Variables  Changed  :  update,  data,  index,  remote 

a 

a 

*a******************************** ********************/ 

# include  <dos.h> 
finclude  <stdio.h> 

* include  "system.h" 

# include  "port.h" 

int  ray_notice_up; 

/♦•♦•♦function  to  atrip  bits  out  of  ASCII  characters  sent  by  the 
Raytheon  receiver.  Assume  bits  packed  msb  ->  lsb  8  at  a  timeaaaaa/ 
int  raybits(int  char in) 

{ 

int  i2,temp; 
for(i2»0; i2<8; i2++) 
i 

temp  *  char in  ft  0x01; 
if (temp  ==  0) 
data [index]  =  0; 

else 

data [index]  =  1; 
char in  =  charin  »  1; 
index++ ; 

if (index  >=  100) 
return  TRUE; 

> 

return  FALSE; 

> 

/♦••♦♦function  to  talk  to  the  port  drivera****/ 
int  ray_get_char() 

{ 

unsigned  com; 
int  char.in,  test; 

com  *  beacon.port; 
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char _ in  =  get.char(com) ; 
teat  *  tiaed.out(com) ; 
il((taat)  kk  (!restart)){ 
if ( Iray.notice.upH 

■y.noticaC  lo  Data  from  Beacon  Receiver!!!"); 
ray_notice_up  *  TRUE; 
update  a  FALSE; 

> 

elae  { 

if(reatart)  { 
close_«indow() ; 
ray_notice_up  =  FALSE; 
update  >  TRUE; 

> 

> 

> 

elae-C 

if (ray_notice_up)  { 
close.sindouQ ; 
ray_notice_up  =  FALSE; 
update  a  TRUE; 

> 

} 

return  ( char _ in); 

> 

/♦♦♦♦♦function  to  search  for  start  string  sent  by  Raytheon  SABRee***/ 
void  findstartO 
{ 

char  start[5)  =  {’s' , 't' , *a* , 'r ' , *t’>; 
int  go  a  TRUE; 
char  char. in; 
int  il  *  0; 

while(go) 

{ 

if (restart) 
break; 

char _ in  =  ray_get_char() ; 
if(char_in  ==  start [il])  { 
il++; 

> 

else  { 

il  *  0; 

> 

if (il  >»  5) 
go  »  FALSE; 

> 

> 
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/*****nain  function  in  ray.c.  Finds  starts,  gets  characters,  strips 
out  beacon  bits,  then  displays  the  data.  If  remote  master  or  slave, 
•ends/receives  the  satellite  name .*•***/ 
void  raytheonO 
{ 

unsigned  com; 

int  il,  jl,  char.in,  go, finished,  update.labels; 
char  quit  □  *  "ATHO"; 
com  ■  beacon.port; 

/*****if  remote  slave,  rs  software  opens  the  coml  port.*****/ 
if ( ! REMOTE.SLAVE) 

op*nport(com,9600,8,0,l) ; 
jl  «  0; 
go  *  1; 

update.labels  *  FALSE; 
ray_notice_up  *  FALSE; 

while (go) 

/*****if  restart,  get  out  now!!*****/ 
if (restart) 
break; 

if (ray.notice.up)  { 
close.windowO ; 
ray.notice.up  *  FALSE; 
update  =  TRUE; 

} 

findstartO ; 
index  *  0; 
vhile(index  <  100) 

if (restart) 
return; 

char.in  =  ray.get.charO ; 
finished  =  raybits(char.in) ; 
if (index  ==  48) 
display.clockO ; 

if (finished) 

break; 

> 

display _data() ; 
if (update.labels H 
display.satO ; 
update.labels  -  FALSE; 

> 

if (REMOTE.SLAVE) { 
char.in  *  0; 
while(char_in  !=  S0H) 
char.in  *  get.char(remote.port) ; 
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for(il=0;il<3;il++)  { 
char_in  *  g«t_char(ramot«_port) ; 
if(char_in  /*  sat  Til})  { 

•at[il]  =  char_in; 
update.labels  =  TRUE; 

> 

> 

> 

if (REMOTE)  { 

put_char (remote_port , SOH)  ; 
for(il=0;il<3;il++) 
put.cbar (ramote.port , sat [il] ) ; 

if (char_rdy(ramote_port))  < 
char., in  *  gat_char(r«mote_port) ; 
if(char_in  ■»  quitCjl])  { 
jl++; 

if(jl  >«  3) 
kill_renots_mastar() ; 

> 

•Isa 

jl  *  0; 

> 

•Isa 

jl  »  0; 

> 

> 

> 


/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦eve 
♦File  :  remote. c 

♦By  :  Jim  Coppola 

e  :  OS  Sep  92 

*  :  Version  1.0 

♦Update : 

*By 

* 

♦Description:  Functions  to  control  the  remote  functions 

♦ 

♦  Global  Variables  Used 

♦  Global  Variables  Changed  :  REMOTE,  remote.slave 

♦ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦eve/ 
♦include  <stdio.h> 

♦include  <dos.h> 

♦include  <conio.h> 

♦include  "timer. h" 

♦include  "system. h" 

♦include  "port.h" 

/♦  ♦**•*  Modem  Definitions  ♦♦♦♦♦/ 

/♦♦♦♦♦this  code  belongs  in  modem. c,  but  pulled  in  for  this 
applicationeeeee/ 

/♦♦♦♦♦Hayes  modem  control  strings  ***♦♦/ 

♦define  RESETMODEM  "ATZ\r”" 

♦define  IIITMODEM  "AT*ClE0MlS7=60Sll=5SVlX3S0=0\r"' 
♦define  HAHGUP  "-+++'ATH0\r‘ATS0=0\r*" 

♦define  AISVER  "ATS0=l\r" 

/*♦♦♦♦  prototypes  ♦♦♦♦♦/ 
void  initializemodem(void) ; 
void  call_remote(char  ♦); 
void  anwser_modem(void) ; 
void  hangup(void) ; 
void  release.modem(void) ; 


char  DIALO  =  "ATDT"  ; 

char  phone_number[25]  .•/♦♦♦♦♦mar  phone  number  length  =  2S***+*/ 

/♦♦♦♦♦  send  a  string  to  the  modem  ♦♦♦♦♦/ 
static  void  modem_out(char  ♦  s) 

{ 

while  (*s)  { 

if  (♦s  «  '-•)  { 
set_timer (0 , 1) ; 
shile( !timed_out(0)) ; 

> 
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•la«  if  ( !put_char(remote_port,*s)) 

break; 

■++; 

> 

> 

/**♦♦*  initialize  the  modem  ****♦/ 
void  initializemodem(void) 

i 

/♦♦♦♦♦hardcoded  for  ZOOM  and  DATACOM  modem*****/ 
openport (remote.port , 2400,8,0,1)  ; 
modem. out (RESETMODEM) ; 
modem. out ( IIITMODEM )  ; 
clear.eerial.queue(remote.port) ; 
clear _xmit_queue(remote_port) ; 

> 

/♦♦♦•♦release  the  modem  ****♦/ 
void  releaee.modemfvoid) 

modem. out (RESETMODEM) ; 
dear.serial.queueCremote.port) ; 
clear.zmit.queue(remote.port) ; 

> 

/**♦♦*  place  a  call  ♦****/ 
void  call_remote(char  *phoneno) 

< 

modem. out (DIAL) ; 
modem.out(phoneno) ; 
modem. out ( "\r" ) ! 

clear_serial_queue(remote_port) ; 
clear.xmit.queue(remote.port) ; 

} 

/***♦*  answer  a  call  ♦****/ 
void  answer.modem  (void) 

modem. out (AMSWER) ; 
clear_serial_queue(remote_port) ; 
clear_xmit_queue(remote_port) ; 

> 

/**♦**  hang  up  the  call  ****♦/ 
void  hangup(void) 

{ 

modem.out(HAHGUP) ; 
clear_eerial_queue(remote_port) ; 
clear_rmit_queue(remote_port) ; 

> 
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/*****function  to  get  phone  number  to  dial*****/ 
void  get _phone_number (void) 

< 

char  *pointer; 

open.windo w ( 20 , 8 , 60 , 1 0 , WHITE , GREEN ,1,2); 
gotoxy(l,3); 

cputs("Phone  Number  To  Dial?  "); 
phone_number [0]  =  17; 
my_cgete(phone_number) ; 

dose.windowO ; 

} 

/*****remote  master  code.  Called  Irom  options  file*****/ 
void  remote_mas ter (void) 

int  time.out,  go,  sync.count,  il; 

char  char.in,  beacon_out [5] ,  *phone_pointer ; 

remote .port  =  2; 

my_notice("Initializing  Modem") ; 

initial  izemodemO  ; 

dose.windowO ; 

get .phone .number () ; 

my_notice( "Calling  Remote  Location"); 

phone.pointer  =  tphone.number  CO]  +  2; 

call.remote(phone.pointer) ; 

set_timer(0,5); 

while ( !timed_out(0)) ; 

close.vindovO ; 

my.not ice ("Waiting  for  Remote  to  Answer"); 
set .timer (0,5) ; 
while ( ! timed. out (0) ) ; 

time.out  =  0; 
go  ~  TRUE; 

/*****wait  for  slave  to  answer*****/ 
while(go)  { 

char. in  =  get.char(remote.port) ; 
if (timed.out(remote.port))  { 
time_out++; 
if (time.out  >  3){ 

my_notice("Wait  Time  Out  Occured! !  Continue??"); 
char.in  =  bioskey(O); 
dose.windowO ; 
if (tolower(char.in)  ==  ’y') 
time.out  =  0; 
else  < 

dose.windowO ; 


hangup 0 ; 
release.modemO ; 
return; 

> 

> 

> 

else  { 

aync_count  =  0; 
while (sync.count  <  3)  { 
if (char. in  ==  SOH) 
sync_count++; 

else  -C 

if ( ! t imed.out (r emot  e.port ) ) 
sync.count  =  0; 

else 

sync_count++; 

> 

if (sync.count  >=  3) 
go  *  FALSE; 

char. in  -  get.char (r emot e.port ) ; 

> 

> 

> 

dose.windowO ; 

itoa(receiver,beacon_out , 10) ; 
for(il=0;il<3;il++)  { 

put_char(remote_port,SOE) ; 
put_char(remote_port .beacon.out [0] ) ; 

> 

while ( char.rdy (r emot e.port ) ) 

char. in  ■  get.char(remote.port) ; 

go  *  TRUE; 
il  =  0; 
while (go)  { 

if (char. in  ==  ACK)  { 

REMOTE  =  TRUE; 
go  =  FALSE; 

> 

char.in  =  get.char(remote.port) ; 
il++; 

if (timed.out(remote.port)  I  I  (il  >  3)) 
go  =  FALSE; 

> 

if (! REMOTE)  { 

error .message ("Handshake  Sync  Failed,  Try  Again!!!"); 
hangup () ; 
release.modemO ; 

> 
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•la  a  { 

whilst char  _r  dy  (r  emo  t  e_po  rt ) ) 

char_in  =  get_char(remote_port) ; 
my_notice("Sync  Established"); 

•et_timer(0,2) ; 
while ( !tined_out(0)) ; 
dose_windos() ; 
dear_serial_queue(receiver) ; 
clear_xmit_queue(remote_port) ; 

> 

> 

/***♦*! unction  to  kill  remote  master  functions*****/ 
void  kill_remote_master() 

{ 

my_notice( “Remote  Stopped.  Hanging  Up  Modem"); 
hangup () ; 
release_modem() ; 
closa.window () ; 

REMOTE  =  FALSE; 

> 

/♦♦♦♦♦function  to  set  up  modem  and  port  parameters  for  remote 
•lave*****/ 

void  remote_slave(void) 

{ 

int  time_out,  go,  sync_count,  il; 
char  char, in; 

char  connect []  =  {'C» , *0* , *H» , , »E» , *C» , »T»>; 
remote_port  =  1; 

my .notice ( "Initializing  Modem") ; 
initializemodemO ; 
dose_window() ; 

my_notice("Waiting  To  Answer  Phone.  Any  Key  To  Quit."); 
answer _modem() ; 
go  *  TRUE; 
il  =  0; 
while (go)  { 

if (bioskey(l))  { 
dose_window() ; 
my_notice("Clearing  Modem"); 
hangup () ; 
release_modem() ; 
close_window() ; 
return ; 

> 

/*****get  characters  until  modem  informs  us  it  connects*****/ 
char  _ in  =  get_char(remote_port) ; 
if(char_in  ==  connect [il]) 
il++; 
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else 

il  =  0; 
il(il  >=  7) 
go  =  FALSE; 

> 

close.windowO ; 

while(char_rdy (remote.port) ) 

char.in  =  get.char (remote.port) ; 

/♦♦♦♦♦connected,  nos  initiate  syncronization*****/ 
•ync_count  =  0; 
go  *  TRUE; 

while (go)  { 
for(il=0; il<4; il++) 

put_char(remote_port ,SQH) ; 
char.in  =  get_char(remote_port) ; 

»ync_count++ ; 

ii((timed_out(remote_port))  | |  (sync.count  >=  20)) 
go  =  FALSE; 
if (char.in  ==  SOH)  { 

char.in  =  get_char(remote_port) ; 
il((char_in  ==  '0')  II  (char.in  ==  'i'))  { 
REMOTE.SLAVE  =  TRUE; 
for(il*0;il<3;il++) 

put.char (remote.port, ACK) ; 
go  *  FALSE; 

/*****get  reciever,  either  GPU  or  Raytheon*****/ 
if (char _ in  ==  *0') 
receiver  =  0; 

else 

receiver  =  1; 

> 

> 

> 

while ( ! char_rdy (remote_port) ) 
char_in  =  get.char (remot e.port ) ; 

if (! REMOTE.SLAVE)  { 

arror_message( "Handshake  Sync  Failed,  Try  Again!!!" 
hangup () ; 
release.modemO ; 

> 

else  { 

for(il=0;il<5;il++) 

put_char(remote_port , ACK) ; 
ny_notice("Sync  Established"); 
clear.serial.queue(receiver) ; 
set_timer(0,2) ; 
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vhil«( !timed_out(0)) ; 


/***************************************************** 

♦File  :  screen. h 

*By  :  Jim  Coppola 

*  :  27  Jul  92 

*  :  Version  1.0 

♦Update: 

♦By 

* 

♦Description:  Header  file  lor  screen  functions 

* 

* 

******************♦***********************************/ 

void  display_clock(void) ; 
void  display _data(void) ; 
void  display_system(void) : 

Zee*************************************************** 

♦File  :  screen. c 

♦By  :  Jim  Coppola 

♦  :  28  Jul  92 

♦  :  Version  1.0 

♦Update: 

♦By 

♦ 

♦Description:  procedures  which  output  to  the  screen 

* 

* 

♦  Global  Variables  Used  :  update,  dataC] ,  old[],  B.BIRD,  sys_time, 

♦  mil_date,  IRIG.UP,  INTERRUPT_UP ,  FGCOLOR,  BGCOLOR,  receiver, 

♦  PRIITER.UP,  DISK_LOG_UP . 

♦  Global  Variables  Changed  :  old[] 

♦ 

******************************************************/ 
iinclude  <conio.h> 
iinclude  <string.h> 
iinclude  "system. h" 

/♦♦♦♦♦global  toggles/place  holders*****/ 
int  COHTSHF  =  FALSE; 
int  BERT  =  FALSE; 

int  OLDSHFPWR  =  OxFF; 
int  COMMANDPWR  =  OxFF; 
int  BITERRATE  =  OxFF; 
int  SBITRATE  =  OxFF; 
int  UPSTREHGTH  =  OxFF; 
int  DEMOD  =  OxFF; 

/♦♦♦♦♦display  positions  1 or  various  blocks  and  stuff*****/ 
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int  tin ex  =  36; 
int  tiney  =  2; 
int  dataz  =  70; 
int  datey  =  2; 
int  clockx  =  37; 
int  docky  =  3; 
int  dillx  =  23; 
int  diffy  *  4; 

int  statusx  =  20; 
int  atatusy  =  7; 

int  conligux  =  60; 
int  configuy  =  8; 
int  conligdx  -  70; 
int  configdy  =  8; 

int  laitx  =  22; 
int  laity  =  16; 
int  ollsat  =  19; 
int  rightx  =  65; 
int  righty  =  16; 

/♦♦♦♦♦y unction  prototype****/ 
void  diaplay_labals(void) ; 

/*****routina  to  update  status  section  o 1  display*****/ 
void  update_status (void) 

i 

static  char  *onelD  =  {"1" .HULL}; 
static  char  *zero0[]  =  {'‘0".HULL}; 
char  **one,  **zero; 

one  =  onel; 
zero  *  zeroO; 

/♦♦♦♦♦bypass ****♦/ 

il ((data [82] ! *old [82])  II  (data[83] !=old[83])) 

{ 

gotoxy(statusx.statusy) ; 

COITSHF  =  FALSE; 
old [82]  =  data [82] ; 
old [83]  =  data [83]; 
il(old[82] ) 

il(old[83] )  { 

COITSHF  =  TRUE; 
cputsC'SHF  CONT"); 

> 

else 

cputs ("BYPASS  "); 

> 
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•Isa 

i 

if (old [83]) 

{ 

t«tcolor(FGCOLOR  +  BLIHK) ; 
cputsC"  EAH  "); 
text color (FGCOLOR) ; 

> 

•Isa 

cputs ("STAVDBY  '•) ; 

> 

> 


/•••••command  accepted*****/ 
if (old [72]  !=  data [72])  { 
old [72]  =  data [72] ; 
gotoxy(statusx,statusy+l) ; 
if (old [72])  { 
cputs ("ACCEPTED"); 
if(PRIIT.TRIGGER)  { 
restart  »  TRUE; 
print now  =  TRUE; 

> 

> 

•Is*  { 

cputs ("RESET  "); 

> 

> 

/***e*STG  update*****/ 
if (data [70] !=old[70]) 

gotoxy(statusx,8tatusy+2) ; 
old [70]  =  data [70] ; 
if (old [70]) 
cputs ("EHABLED  "); 

•Isa 

cputs ("DISABLED"); 

> 


/•••♦♦serial  command*****/ 

if((data[76] !=old[75])  II  (data[76] ! -old [76] )  II  (data[77] !=old[77] )) 

{ 

old [76]  =  data [76]; 
old [76]  =  data [76]  ; 
old [77]  =  data [77]; 
gotoxy(statusx,statusy+3) ; 
if (old [76]) 
cputs (*one) ; 
else 

cputs (*zero) ; 
if (old [76]) 
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cputs (*one) ; 

•la* 

cputs (*zaro) ; 
if (old [77]) 
cputa (*one) ; 

•la* 

cputs (*zero) ; 

> 

/♦♦♦♦•broadside  cmd*****/ 

if ((data [48] !=old[48])  II  (data[49] !=old[49] )  II  (data[50] !=old[50] )) 

old [48]  -  data [48] ; 
old [49]  =  data [49] ; 
old [50]  =  data [50] ; 
gotoxy( status* ,statusy+4) ; 
if (old [48] ) 
cputs (*one) ; 

•Is* 

cputs (*zero) ; 
if (old [49]) 
cputs (*one) ; 

•Isa 

cputs (*zero) ; 
if (old [50]) 
cputs (eons); 

•Is* 

cputs(*zero) ; 
cputa ("  "); 

> 

'♦****decover*****/ 

\f (data [80] ! sold [80]) 

{ 

gotoxy(statusx,8tatusy+5) ; 
old [80]  =  data [80]; 
if (old [80]) 

cputs ( "EH ABLED  "); 

•Is* 

cputsC’DISABLED"); 


> 

/♦•♦♦♦routine  to  update  the  config  part  display******/ 
void  updat*_conf ig(void) 

( 


/♦•♦•♦uplink  band*****/ 

if((data[68] !=old[68])  I  (data[69]  !=  old[69])) 

gotoxyCconf igux.conf iguy) ; 
old [68]  =  data [68] ; 
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old [69]  =  data [6^? ; 

11 (old [68] )  { 
if (old [69] )  { 
t*xt color (FGCOLOR+BLINK) ; 
cputs ("COMMUTATE") ; 
t*xt color (FGCOLOR) ; 

> 

•Isa 

cputsC'UHF  "); 

> 

•Is# 

cputs ("SHF  "); 


/♦••♦♦uplink  bandwidth*****/ 
11 (data [68]  !=  old [58])  { 
old[68]  =  data [58] ; 
gotoxy  (  coni  igux ,  coni  iguy+ 1 ) ; 
11 (old [58]) 

cpnts ("HARROW"); 

•Isa 

cpnts ("WIDE  "); 


/♦♦♦♦♦uplink  modulation*****/ 
11 (data [56]  >=  old [56])  { 
old [56]  ~  data [56]; 
gotoxy (coni igux , coni iguy+2) ; 
xl(old[56] ) 

cputsC'AFSAT  II"); 

•Isa 

cputsC'AFSAT  I  "); 


/♦♦♦♦♦uplink  crypto*****/ 
il (data [78]  !=  old [78])  { 
old [78]  *  data [78] ; 
gotoxy ( coni igux , coni iguy +3 ) ; 
if (old [78]) 
cputs("ILSG"); 

•Isa 

cputs ("KI  "); 

> 

/♦♦♦♦♦uplink  AFSAT  II  status*****/ 
11 (old [74]  !=  data [74])  { 
old[74]  =  data[74]; 
gotoxy(configux,configuy+4) ; 

11 (old [56])  { 
il(old [74] ) 
cputs ("Hopping") ; 
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•1st 

cputa ("Fixed  "); 

> 

elae 

cputs("  "); 

> 

/♦••♦•update  downlink  side  of  configuration  menu*****/ 
/•♦••♦downlink  band*****/ 
if (B.BIRD)  { 

if ((data [90] ! sold (90])  I  (data[91]  !=  old[91]))  { 
gotoxy(conf igdx.conf igdy) ; 
if (data [90])  { 
if (data  [91] ) 

cputa ("UHF/SHF") ; 
else 

cputs("UHF  "); 

> 

else  { 

if (data [91]) 

cputsC'SHF  "); 

else 

cputa ("HOHE  "); 

> 

> 

} 

else  { 

gotoxy(conf igdx.conf igdy) ; 
cputsO'UHF  "); 

> 

/♦♦♦♦♦downlink  bandwidth*****/ 
if (data [69]  !-  old [59])  { 
old [59]  =  data [59] ; 
gotoxy(configdx,configdy+l) ; 
if (old [69]) 

cputs("WIDE  "); 
else 

cputa ( "BARROW" ) ; 

> 


/****, downlink  modulation*****/ 
if (data [57]  !=  old [57])  { 
old [67]  =  data [57]; 
gotoxy(configdx,configdy+2) ; 
if (old [57]) 

cputsC’AFSAT  I  "); 
else 

cputsC’AFSAT  II"); 

} 

/*****downlink  crypto*****/ 
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if  (data  [79]  .'=  old  [79])  { 
old [79]  *  data [79] ; 
gotoxy ( conf igdx , conf igdy +3 ) ; 
if (old [79]) 
cputa("LSG  "); 

•Isa 

cputs ("KI  "); 

> 

/♦♦♦♦♦downlink  AFSAT  II  status*****/ 
if (old [73]  !=  data [73] )  { 
old [73]  =  data [73]; 
gotoxy(configdx,conf igdy+4) ; 
if (old [57]) 

cputsC  "); 

•lss  { 

if (old [73]) 
cputs( "Hopping") ; 

•lse 

cputs ("Fixed  "); 

> 

> 

} 

/*****update  left  block  of  beacon  display  for  B  sat*****/ 
roid  update.lef tb(void) 

{ 

int  il, value; 
char  cvalue[5] ; 

/*****afsatcom  I  bypass  enable*****/ 
if (data[8l]  !=  old[81])  { 
old [81]  *  data [81] ; 
gotoxy (leftx, lefty) ; 
if (old [81]) 

cputs ("EIABLED  "); 

•lse 

cputs ("DISABLED"); 

> 

/♦♦♦♦♦Command  address  enable*****/ 
if (data [52]  !=  old [52])  { 
old [52]  *  data [52] ; 
gotoxy(leftx,lefty+l) ; 
if (old [52]) 

cputs ("EHABLED  "); 
else 

cputs ("DISABLED") ; 

> 

/•♦♦♦♦Uplink  frequency  enable*****/ 
if (data [53]  !=  old [53])  { 
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old [S3]  *  data [S3] ; 
gotoxy(leftx,lefty+2) ; 
if (old [53]) 

cputa( "ENABLED  "); 

else 

cputa ("DISABLED")  ; 


/♦♦♦♦♦BERT*****/ 
if (BERT)  { 
value  =  0; 

for(il=0; il<7 ; il++)  { 
value  =  value  «  1; 
value  |»  data[98-il] ; 

> 

if (value  !=  BITERRATE)  { 
BITERRATE  =  value; 
gotoxy(leftx,lefty+3) ; 
itoa( value , cvalue , 10) ; 
cputs(cvalue) ; 
cputa ("  "); 

> 

> 

elae  { 

gotoxy(leftx,lefty+3) ; 
cputa ("DISABLED"); 


/♦♦♦♦♦commanded  ahf  EAM  dnlink  power*****/ 
value  *  0; 

for(il*0;il<6;il++)  { 
value  =  value  «  1; 
value  1=  data[89-il]; 

> 

if ((value  !=  COMMANDPWR  I!  FIRST))  { 

CONMAIDPVR  =  value; 
gotoxy(leftx-off set ,lefty+4) ; 
cputa ("Commanded  SHF  Pwr  "); 
gotoxy(leftx,lefty+4) ; 
itoa( value, cvalue ,10) ; 
cputa (cvalue) ; 
cputa ("  "); 

> 

/♦♦♦♦♦Uplink  strength  or  cont  SHF  downlink  power*****/ 
if (data  [67])  { 

if (data [67]  !=  old [67])  { 
old [67]  =  data [67]; 
gotoxy(leftx-offset ,lefty+5) ; 
cputaC’Cont  SHF  Dnlk  "); 
gotoxy(leftx-offset,lefty+6) ; 
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cputa ("SHF  Dnlk  Pwr  "); 

> 

if (old [66]  ! =  data [66])  { 
old [66]  =  data [66] ; 
gotoxy(leftx,lefty+5); 
if (data [66]) 
cputa ("EX ABLED  '•); 
elae 

cputa ("DISABLED") ; 

> 

value  *  0 ; 

for(il=0;il<6;il++)  { 
value  =  value  «  1; 
value  Is  data[65-il]; 

> 

if ((value  !=  OLDSHFPWR)  II  (FIRST))  { 
gotoxy(leftx,lefty+6) ; 

OLDSHFPWR  =  value; 
itoa(value , cvalue , 10) ; 
cputs (cvalue) ; 
cputs ("  "); 

> 

> 

alee  { 

gotoxy(leftx-offaet,lefty+5) ; 

cputa ("Uplink  Strength  "); 

gotoxy(leftx-off set ,lefty+8) ; 

cputa ("Denod  Data  "); 

if (BERT)  { 
value  *  0; 

for(il=0; il<4; il++)  { 
value  s  value  «  1; 
value  I-  data[60+il]; 

> 

if (value  !=  UPSTREXGTH)  { 
UPSTREXGTH  =  value; 
gotoxy(leftx,lefty+B) ; 
itoa( value, cvalue, 10) ; 
cputa (cvalue) ; 
cputa ("  "); 

> 

value  =  0; 

for(il=0;il<3;il++)  { 
value  *  value  «  1 ; 
value  I®  data[66-il]; 

> 

if  (value  !=  DEMOD)  {. 
gotoxy(leftx,lefty+6)  ; 
itoa(value , cvalue , 10) ; 
cputa (cvalue) ; 
cputa ("  "); 
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> 

> 

•Isa  { 

gotoxy(l«ftx,l«ity+5) ; 
cputa  ('‘DISABLED'1); 
gotoxydaltx.lefty+e) ; 
cputsC'DISABLED"); 

> 

> 

> 

/•••••update  left  block  oi  beacon  display  ior  A  sat*****/ 

void  update_l«*ta(void) 

int  il, value  ; 
char  c value [6] ; 

/•••••alsatcom  I  bypass  enable*****/ 
il (data [81]  !=  old [81])  { 
old [81]  *  data[8l] ; 
gotoxy(leltx,lelty) ; 
il(old[81] ) 

cput 8 ("ENABLED  »); 
else 

cputsC'DISABLED"); 


/•••••Command  address  enable*****/ 
il (data [52]  !=  old [62])  { 
old [52]  =  data [52]; 
gotoxy(leltx,lelty+l) ; 
il(old[62] ) 

cputa ("ENABLED  "); 
else 

cputsC'DISABLED"); 

> 

/•••••Uplink  Irequency  enable*****/ 
il (data [53]  !=  old [53])  { 
old [53]  =  data [53]; 
gotoxy(leltx,l«*ty+2) ; 
il(old[53] ) 

cput s ("ENABLED  "); 
else 

cputsC’DISABLED"); 


/•••••BERT*****/ 
il(BERT)  { 
value  =  0; 

lor(il=0; il<7; il++)  ( 
value  =  value  «  1 ; 
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value  1=  data[98-il]; 

> 

if (value  !=  BITERRATE)  { 
BITERRATE  =  value; 
gotoxy(leftx,lefty+3) ; 
itoa( value , cvalue , 10) ; 
cpute(cvalue) ; 
cputsC"  ") ; 

> 

value  =  0; 

for(il=0;il<8;il++)  { 
value  =  value  «  1; 
value  |=  data[91-il]; 

> 

if (value  !=  SBITRATE)  { 
SBITRATE  =  value; 
gotoxy (leftx,lefty+4) ; 
itoa( value , cvalue , 10) ; 
cput a (cvalue) ; 
cputs("  "); 

> 

> 

else  { 

gotoxy (leftx , lefty +3) ; 
cputsC'DISABLED") ; 
gotoxy (leftx , lef ty+4) ; 
cputsC'DISABLED"); 


/*****Uplink  strength,  DATA  DEMOD*****/ 
if (BERT)  { 

value  =  0; 

for(il=0; il<4; il++)  { 
value  =  value  «  1; 
value  1=  data[60+il]; 

> 

if (value  !=  UPSTRENGTH)  { 

UPSTREJIGTH  =  value; 
gotoxy(leftx,lefty+6) ; 
itoa(value, cvalue, 10) ; 
cputs (cvalue) ; 
cputsC'  "); 

> 

value  =  0; 

for(il=0;il<3;il++)  { 
value  =  value  «  1; 
value  1=  data[66-ilj; 

> 

if (value  !=  DEMQD)  { 
gotoxy(lef tx, lefty+6)  ; 
itoa(value , cvalue , 10) ; 


169 


cputs(cvalue) ; 
cputs("  "); 

> 

> 

else  { 

gotoxy(leftx,lefty+5) ; 
cputsC'DISABLED") ; 
gotoxy (leftx,lefty+6) ; 
cputs("L ISABLED") ; 

> 


/♦♦♦♦♦routine  to  update  right  block*****/ 
void  update_right() 

{ 

/*****UHF  downlink  -  bit  91*****/ 
if (B_BIRD)  { 

if (old [90]  !=  data [90])  { 
old [90]  =  data [90] ; 
gotoxy(rightx.righty) ; 
if (old [90]) 
cpute( "ENABLED  "); 
else 

cputsC'DISABLED"); 

> 

> 

else  { 

gotoxy(rightx.righty) ; 
cputs("**N/A**  "); 

> 

/♦♦***SHF  downlink  enable  =  bit  92*****/ 
if (B_BI1D)  { 

if  (old  [91]  !=  data[91]  )  •( 
old[91]  =  data[91] ; 
gotoxy (rightx , righty+1 ) ; 
if (old[91] ) 
cpute( "ENABLED  "); 
else 

cputsC'DISABLED"); 

> 

> 

else  { 

gotoxy (rightx , righty+1 ) ; 
cputs("**N/A**  "); 

> 

/*****SHF  antenna  -  bit  72*****/ 
if (old [71]  !=  data [71])  { 
old[71]  =  data[7l]; 
gotoxy (right x,righty+2) ; 
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ii(old[7l]) 
cputs ("EC  "); 

•1st 

cputs ("MBA") ; 

> 

/*****W0D1  -  bit  55*****/ 
if (old [54]  !=  data [54])  i 
old [54]  =  data [54] • 
gotoxy(rightx,righty+3) ; 
if (old [54] ) 

cputs ("ENABLED  “); 
also 

cputs( "DISABLED"); 

> 

/*****W0D2  -  bit  66*****/ 
if Cold[55]  !  =  dac<t[55])  { 
old [55]  =  data [55] ; 
gotoxy(rightx,righty+4) ; 
if (old [65] ) 

cputs ("ENABLED  "); 

•Isa 

cputs("DISABLED") ; 

> 

/  >***classif ied  telemetry*****/ 
if (old [99]  I-  data [99])  { 
old [99]  *  data [99]; 
gotoxy(right*,righty+5) ; 
if  (old [99]) 

cputs ("ENABLED  "); 

•Isa 

cputs ("DISABLED"); 

> 

/***e*A FSAT  I  demod  data  for  A  satellites*****/ 
if  ( !B_BIRD)  < 

if (old [67]  ! =  data  [67])  { 
old[67]  =  data [67] ; 
gotoxy(rightx,  righty+6) ; 
if (old[67] ) 
cputs ("Mark  "); 
else 

cputsC'Space") ; 

> 

> 

> 

/♦♦♦•♦function  to  display  time  using  global  time  character  array*****/ 
void  display_time(void) 

< 

int  x,y ; 
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./(update)  { 
z  3  wherexO ; 
y  *  vhereyO ; 
gotoxy(tiu.sx,timey) ; 
cputs(sys_time) ; 
cputs(" .000  "); 

gotoxy(datex.datey) ; 
cputs (mil.date) ; 
gotoxy(x.y); 

> 

> 

/*****generat e  and  display  beacon  clock  time*****/ 
void  display_clock() 

{ 


int  day, hour, min, sec, msec, usec.il; 

char  cday[3] ,chour[3] ,cmin[3] ,csec[3) ,cmaec[7] ,cdiff [3)  ; 

static  int  value [7]  *  {40,20,10,8,4,2,1}; 

static  int  mvalue[7]  =  {800,400,200,100,80,40,20}; 

day=hour=min=sec=maec=0 ; 
if (update)  { 

for(il=0 ; il<7 ; il++) 

{ 

day-day  +  dataCil]  *  value [il]; 
if (il>0) 

hour=hour  +  data [i 1+6]  *  value [il); 

min  *  min  +  data[il+13]  *  value[il); 
sec  *  sec  +  data[il+20)  *  value [il); 
msec  =  msec  *  data[il+27)  *  mvalue[il); 

} 

if (IRIG_UP  fcfe  INTERRUPT.UP)  { 
il  =  diff_time  -  sec; 
if (il  <  0) 
il  +=  60; 

itoa(il,cdiff ,10); 
gotoxy(diffx.diffy) ; 
cputsC'Difference  "); 

cputs(cdiff ) ; 
cputs("  "); 

} 

msec  =  msec  +  data[34)  *  10; 
msec  *  msec  +  data[3S)  *  5; 

gotoxy(clockx,clocky) ; 
itoa(day ,cday, 10) ; 
itoa(hour , chour , 10) ; 
itoa(min, cmin, 10) ; 
itoa(sec, csec, 10) ; 
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itoa(msec , cmsec , 10)  ; 
if (day  <  10) 
cputs("  "); 
cputs(cday) ; 
cputa ("/"); 
if (hour  <  10) 
cputa ("  "); 
cputa (chour) ; 
cputa ("  "); 
if (min  <  10) 
cputa ("0"); 

cputa (cm in) ; 
cputa ("  "); 
if(aac  <  10) 
cputa (M0"); 
cputs(csec) ; 
cputa ("."); 
cputa (cmsec) ; 
cputa ("  "); 

> 

} 

/*♦♦♦  routine  to  display  currant  satellite  *****/ 
void  diaplay.satO 

int  il; 

for(il=0; il<100; il++) 
oldCil]  =  OxFF; 

FIRST  =  TRUE; 
if (sat [0]  ==  'A') 

B.BIRD  =  FALSE; 
else 

B.BIRD  =  TRUE; 
display.labels () ; 

> 

/♦♦♦♦♦routine  to  update  screen  labels*****/ 
void  display.labels () 

{ 

int  il; 

gotoxyO ,  1) ; 

textcolor(RED) ; 

textbackground(LIGHTGRAY) ; 

cputa ("  DSCSIII  '*); 

cputa (sat) ; 

cputa("  Beacon  Display  ") 

textcolor(FGCOLOR) ; 
textbackground(BGCQLOR) ; 
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gotoxy (23,2) ; 
cputa ("System  Time"); 


gotoxy (23, 3) ; 
cputs("Beacon  Time"); 

gotoxy(l,6); 

cputs("  Status 

Configuration  \r\n"); 

cputs("  Downlink 

Uplink  Downlink 

cputs("  Command  Accept 

Band  \r\n"); 

cputa ("  STG  Update 

Bandwidth  \r\n"); 

cputa ("  Serial  Cmd 

Modulation  \r\n") ; 

cputa("  Broadside  Cmd 

Crypto  \r\n") ; 

cputa ("  Decover 

AFSAT  II"); 

gotoxy (1,16); 

cputs("  AFSAT  I  Bypass 

UBF  Downlink  \r\n"); 

cputa ("  Command  Address 

SHF  Downlink  \r\n"); 

cputa ("  Uplink  Frequency 

SHF  Antenna  \r\n") ; 

cputa ("  Bit  Error  Rate 
if (B_BIRD){ 

HOD  1  \r\n") ; 

cputa (" 

VOD  2\r\n") ; 

cputa (" 

1 

Classified  Tlmtry"); 

else  { 

cputa ("  Bit  Error  Rate 

HOD  2  \r\n") ; 

cputa ("  Uplink  Strength 

Classified  Tlmtry\r\n") ; 

cputa ("  Demod  Data 

AFSAT  I  Baseband"); 

> 

gotoxy (1,24) ; 
textcolor(RED) ; 
textbackground(LIGHTGRAY) ; 

cputs("  Quit  Options  Print  Receiver  Satellite  IRIG  Print  log  Disk  log  "); 

for(il=2; il<24;il++) 

{ 

gotoxy(l,il) ; 
cputa ("  "); 
gotoxy(80,il) ; 
cputa("  "); 

> 

text color (FGCOLOR) ; 
textbackground (BGCOLOR) ; 

> 

/♦♦♦♦•function  to  update  the  status  line*****/ 
void  display_system(void) 

gotoxy(l ,25) ; 
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cput«("  <q>  <fi>  <F2>  "); 


■witch  (receiver)  { 

case  0  :  cputs("  GPM  "); 

break; 

case  1  :  cputs("  Raytheon  "); 

break; 

case  2  :  cputs("  ASC-30  "); 

break; 

default  :  cputs("  GPM  "); 

> 

if ( !B_BIRD)  { 

cputsC'DSCSIII  A  "); 

> 

else 

cputsC'DSCSIII  B  "); 

if (IRIG_UP) 

cputsC'Up  "); 

else 

cputsC'HA  "); 


if (PRIITER_UP )  { 
if (PRIHT_LOG_UP) 

cputs( "Logging  "); 

else 

cputsC'Ready  "); 

> 

else 

cputs("  Down  "); 


if (DISK_LOG_UP) 
cputs( "Logging") ; 

else 

cputs( "Off  "); 


> 

/*****main  routine,  used  to  update  bits  49-100.  Called  from  receiver 
software.  Clock  called  separately.*****/ 
void  display_data() 

hidecursorO ; 
if (data[Sl] ) 

BERT  =  TRUE; 

else 

BERT  =  FALSE; 
if (update)  { 

updat e.status ( ) ; 
update_conf ig() ; 
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ii(B.BIRD) 

update_leitb() ; 

•1st 

update_lefta() ; 
updata_right () ; 
i* (FIRST) 

FIRST  =  FALSE; 
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/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

♦File  :  stime.c 

*By  :  Jim  Coppola 

*  :  15  Sap  92 

*  :  Version  1.0 

♦Update : 

♦By 

* 

♦Description:  Functions  to  implement  system  timer  through  MS-DOS 

*  and  display 

♦  Global  Variables  Used  :  IRIG.UP 

♦  Global  Variables  Changed  :  sys.time,  mil.date 

* 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦/ 

# include  <dos.h> 

•include  "system. h" 

/♦♦♦♦global  variableseeeee/ 
char  dos_time[14] ; 
unsigned  char  old.time; 
int  old_jdate; 

/♦♦♦♦♦calendar  conversion  routine.  Used  to  convert  MS-DOS  mil  date 
format  to  linear  day  of  year.  Jan  1  is  considered  day  !♦♦♦♦♦/ 
float  datetojulian(int  day,  int  month,  int  year) 

i 

float  d,  m,  y,  c,  ya,  ret,  temp,  tl,  t2,  t3,  t4; 

if (month  >2) 
month  *  month-3; 

else  ^ 

month  =  month  +  9; 
year  =  year  -  1; 

> 

d  *  (float)  day; 

m  =  (float)  month; 

y  *  (float)  year; 

temp  ■  y/100; 

c  =  (long)  (temp); 

ya  =  (long)  (y  -  100.0  *  c); 

tl  »  (long)  ((146097.0  ♦  c)/4); 

t2  »  (long)  ((1461*ya)/4) ; 

t3  =  (153*m+2)/S; 

t4  *  (long)  (t3  +  d+1721119.0) ; 

ret  a  (long)  (tl  +  t2  +  t4) ; 

if(IRIG_UP) 

irig_f irst.day  =  ret; 
return  (ret); 
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> 


/♦****f unction  to  generate  date  vhen  required*****/ 
void  init_dos() 

{ 

struct  date  dos.date; 

iat  il,  jdate,  month.offset; 

char  temp [5] ; 

float  julian_date,  first.day; 

char  months □  =  {"JanFebMarAprMayJunJulAugSepOctNovDec"}; 
getdate (Ados.dat e) ; 

julian.date  =  dateto julian(dos_date.da_day, dos.date. da_mon, 
dos.date . da.y ear ) ; 

first.day  =  dateto julian( 1 , 1, dos.date. da.year) ; 
julian.date  *  julian.date  -  first.day  +  1; 
jdate  *  (int)  julian.date; 
if(jdate  !=  old.jdate)  { 
old. jdate  =  jdate; 
itoa(dos_date.da_day,temp, 10) ; 
if (dos.date.da.day  <  10)  { 
mil.dateCO]  *  ’O'; 
mil_date[l]  =  tempCO]; 

> 

else  { 

mil_date[0]  =  teap[0] ; 
mil.dateCl]  =  tempCl]; 

> 

mil_date[2]  =  »  '; 

month.offset  =  (dos.date. da.mon  -  1)  *3; 
for(il=0; il<3; il++) 

mil_date[il+3]  =  months [il  +  month.offset]; 
mil_date[6]  =  ’  '; 
itoa(dos_date . da.year , temp , 10) ; 
mil_date[7]  =  temp [2]; 
mil_date[8]  =  temp [3]; 
mil_date[9]  =  0;  /**null  terminator**/ 

> 

itoa( jdate, temp, 10); 
for(il=0; il<14;il++) 
dos.timetil]  =  ’  ' ; 
dos.time [3]  *  ’/’; 
if (jdate  <  10)  { 

dos.time [2]  *  temp[0]; 
return; 

> 

if (jdate  <  100)  { 

dos_time[l]  =  temp[0]; 
dos.time [2]  *  tempCl]; 
return; 
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> 

for(il*0;il<3;il++) 

dos.timeCil]  =  temp[il]; 


/****function  called  by  timer  interrupt  when  1  second  up*****/ 
/*****keep  it  short  as  possible!!!*!*****/ 
void  put .time (void) 

{ 

struct  time  dostime; 

char  *pointer  =  dos.time  *  4; 

int  il; 

gettime(fcdostime) ; 

sprintf (pointer, "*/.02d  '/.02d  '/.02d" .dostime .ti.hour,  dostime.ti.min, 
dostime . ti.sec) ; 

if (dostime. ti.hour  !=  old.time)  { 
old.time  =  dostime. ti.hour; 
init.dosO ; 

> 

for(il*0; il<14;il++) 

sys.timeCil]  *  dos_time[il] ; 

display.timeO ; 

> 


179 


/* 

*  File:  SYSTEM. H 

* 

*  by  Jim  Coppola 

*  1  Feb  92 

*  version  1 . 0 

* 

*/ 

•ifdef  MAIH 
•define  MAINEXTERN 

*else 

•define  MAIIEXTERI  extern 
•endif 

•define  PIO  0x310  /eparallel  port  address  */ 

•define  TRUE  1 
•define  FALSE  0 
•define  SYS.UP  TRUE 
•define  DOW!  FALSE 
•define  SPACE  0x20 
•define  LF  OxOA 

void  finieh(void) ; 

MAIIEXTERI  int  index,  old [100] ,  data [100] ; 

HAIIEXTERI  int  FGCOLOR,  BGCOLOR; 

MAIIEXTERI  int  receiver ,B_BIRD, FIRST,  INITIAL; 

MAIIEXTERI  int  IRIG_UP,C0M1_UP,C0M2_UP,PARALLEL_UP,  PRIITER.UP; 
MAIIEXTERI  int  PRIITER.UP,  DISK.LOG.UP; 

MAIIEXTERI  unsigned  coml.timer,  com2_timer,  parallel.timer; 

MAIIEXTERI  unsigned  beacon_port,  gpm_control_port ,  print.port; 
MAIIEXTERI  int  quitnov,  options,  update,  restart,  printnov,  disknov; 
MAIIEXTERI  int  r.EMOTE ,  REMOTE.SLAVE,  remote.port,  START.REMOTE; 
MAIIEXTERI  char  sat[3],  mil_date[10] ,  sys_time[14] ; 

MAIIEXTERI  unsigned  dos .timer .count; 

MAIIEXTERI  int  DOS.TIHER.UP ,  IITERRUPT.UP; 

MAIIEXTERI  float  irig.f irst.day; 

MAIIEXTERI  unsigned  long  print .time,  print.count,  disk.time,  disk.count 
MAIIEXTERI  int  PRIIT.LOG.UP,  PRIIT.TRIGGER,  DISK.TRIGGER; 

MAIIEXTERI  int  diff.time,  capturenow; 

HAIIEXTERI  char  screen.buff er [4096] ; 
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/*  **************************************************** 

♦File  :  timer. h 

•By  :  Jim  Coppola 

*  :  19  Jul  92 

*  :  Version  1.0 

•Update: 

•By 

* 

•Description:  Header  file  for  the  timer  functions.  Taken  from  extending 

•  turbo  C  professional  by  A1  Stevens 

* 

* 

******************************************************/ 

/•  ••••timer  prototypes****  */ 

void  intercept_timer(void  (*)(void)); 
void  restore.timer(void) ; 
void  set_timer(unsigned  timer,  int  secs); 
int  timed,  out  (unsigned  timer); 

#def ine  PIC00  0x20 
•define  E01  0x20 

/e  **************************************************** 

•File  :  timer. c 

•By  :  Jim  Coppola 

•  :  19  Jul  92 

•  :  Version  1.0 

•Update:  10  Aug  92 
•By  :  Jim  Coppola 

• 

•Description:  File  for  the  timer  functions.  Taken  from  extending 

•  turbo  C  professional  by  A1  Stevens.  Added  in  multiple  timer 

•  capability  for  specific  functions. 

• 

•  Global  Variables  Used  :  DISK.LOG.UP,  DOS.TIME.UP,  disk.time, 

•  print.time,  PRIHT.LOG.UP , 

•  Global  Variables  Changed  :  disk.count,  print.count,  coml.timer, 

•  com2_timer,  parallel.timer ,  dos.time.count,  PRINT.HOW 

• 

*****************************************************  */ 

•include  <stdio.h> 

•include  <dos.h> 

•include  "system.h" 

•include  "timer.h" 

•include  "interupt.h" 
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/*•***! unction  prototypes*****/ 
static  void  (interrupt  far  *oldtimer) (void) ; 
static  void  interrupt  far  newtimer(void) ; 
static  void  (♦timeout.f unction) (void) ; 

/•♦♦♦•intercept  the  timer  interrupt  vector^****/ 
void  intercept .timer (void  (*fn)(void)) 

{ 

//  iKoldtimer  ==  HULL) 

//  i 

oldtimer  =  getvect (TIMER) ; 
setvect (TIMER,  newtimer); 

//  > 

timeout .function  =  In; 

> 

/♦♦♦♦♦restore  timer  interrupt  vector*e***/ 
void  restore.timerO 
{ 

//  iKoldtimer  !=  HULL) 

setvect (TIMER,  oldtimer); 
timeout.function  =  HULL; 

> 

/•♦***ISR  to  count  timer  ticks*****/ 
static  void  interrupt  fax  nevtimerO 
{ 

(♦oldtimer) () ; 
if (coml.timer  >0) 

if( — coml.timer  ==  0  kk  timeout.f unction  !=  HULL) 
(♦timeout .function) () ; 

if (com2_timer  >0) 
com2_timer — ; 

if (parallel.timer  >  0) 
parallel.timer — ; 

if (DOS.TIMER.UP)  { 
dos.timer.count — ; 
if (dos.timer.count  ==  0)  { 
dos.timer.count  =  17; 
put_time() ; 

y 

> 

if (PRIHT.LOG.UP)  { 
print.count — ; 
if (print .count  ==  0)  { 
print.count  =  print .time; 
restart  =  TRUE; 


182 


printnow  =  TRUE; 


> 

} 

if (DISK_LOG_UP)  { 
disk.count — ; 
if (disk.count  ==  0)  { 
disk.count  =  disk.time; 
restart  =  TRUE; 
disknow  =  TRUE; 

> 

> 

> 

/*****set  a  timer  for  timeout  watching*****/ 
void  eet_timer (unsigned  timer,  int  secs) 

{ 

int  ltime; 

ltime  *  secs*182/10+l ; 
switch (timer)  { 

case  0  :  parallels imer  =  ltime; 

break; 

case  1  :  coml_timer  =  ltime; 

break; 

case  2  :  com2_timer  =  ltime; 

break; 

default  :  ; 

> 

} 

/*****check  to  see  if  particular  timer  has  expired*****/ 
int  timed.out (unsigned  timer) 

{ 

int  ret; 
ret  *  FALSE; 
switch (timer)  { 

case  0  :  if (parallel_timer  ==  0) 
ret  =  TRUE; 

break; 

case  1  :  if (comi.timer  ==  0) 
ret  =  TRUE; 
break; 

case  2  :  if (com2_ timer  --  0) 
ret  =  TRUE; 

break; 
default  :  ; 

> 

if (restart) 
return  TRUE; 
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/**************#************************************** 

♦File  :  window. h 

♦By  :  Jim  Coppola 

*  :  28  Jul  92 

*  :  Version  1.0 

♦Update: 

♦By 

* 

♦Description:  Header  file  lor  pop-up  window  routines.  Routines  taken 

♦  from  "Extending  Trubo  C  professional  by  A1  Stevens. 

* 

* 

*♦♦♦*♦*♦*********************************♦*******♦*♦♦*/ 

void  open_window ( int , int , int , int , int , int , int , int ) ; 

void  close.window(void) ; 

void  close_all_windows(void) ; 

void  clear.window(void) ; 

void  error_message(char  ♦); 

void  notice(char  ♦); 

void  my_not ice (char  ♦) ; 

int  yesno(char  ♦); 

#deline  MAX.VINDOWS  10 
#define  TRUE  1 
•define  FALSE  0 

/******************************************♦**♦*♦♦♦♦♦* 

♦File  :  window. c 

♦By  :  Jim  Coppola 

♦  :  28  Jul  92 

♦  :  Version  1.0 

♦Update: 

♦By 

♦ 

♦Description:  File  lor  pop-up  window  routines.  Routines  taken 

♦  from  "Extending  Trubo  C  professional  by  A1  Stevens. 

* 

♦  Global  Variables  Used  None 

♦  Global  Variables  Changed  :  None 

♦ 

******♦♦♦♦♦♦♦*♦♦♦♦♦*********♦♦*****************♦♦♦♦♦**/ 

/♦♦♦♦♦include  lilte*****/ 

•include  <stdlib,h> 

•include  <conio.h> 

•include  <string.h> 

•include  <bios.h> 

•include  <ctype.h> 
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♦include  "window. h" 

♦include  "keys.h" 

/♦♦•••window  daiinition  structures*****/ 
struct  text.inf o  windows  CMAX.WINDOWS] ; 
struct  text_info  wkw;  /*working  window*/ 

/♦••••window  dressing*****/ 
struct 

int  frame;  /*true  if  window  has  a  frame*/ 
int  shadow;  /*0=no, l=transparent,  2=opaque*/ 
char  *wsava;  /*points  to  video  memory  save  buffer*/ 
>  dressing  [MAX.WIHDOWS] ; 
int  curr_wnd  =  1;  /*current  window*/ 

static  int  post_message(char  *,  int,  int,  int); 


/*****open  a  new  window*****/ 

void  open.window (lef t , top , right , bottom , f or eg , backg , frame , shadow) 

int  bfsize; 
int  sine  =  0; 

if (shadow  kk  right  <  80  kk  bottom  <  25) 
sine  =  1; 

bfsize  *  (bottom-top+l+sinc)  *  (right-left+l+sinc)  *  2; 
if(curr_wnd  <  MAX.WIHDOWS) 

if (curr_wnd  ==  1) 

gettextinfo (windows) ; 

else 

windows [curr_wnd-l]  .curx  =  wherexO; 
windows  [curr_wnd-l]  .  cury  =  whereyO; 

> 

if ((dressing [curr.wnd] .wsave=malloc (bfsize)) !=HULL) 

{ 

gettext(left ,top,right+sinc,bottom+sinc, 
dressing Ccurr.wnd] .wsave) ; 

window(left,top,right,bottom); 
textcolor (f oreg) ; 
text background (backg) ; 
gettextinfo(ftwkw) ; 
dressing Ccurr.wnd] .frame  =  frame; 
dressingCcurr.wnd] . shadow  =  shadow; 
clear.windowO ; 
windows [curr_wnd++]  =  wkw; 

> 

> 

> 
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/♦****siadoB  frame  characters*****/ 

♦define  IV  (dressing Ccurr.wnd] .frame  ==  1  ?  *\xda’  :  *\xc9') 

♦define  IE  (dressingCcurr.wnd] .frame  ==  1  ?  *\xbf*  :  *\xbb') 

♦define  SE  (dressingCcurr.wnd] .frame  ==  i  ?  '\xd9*  :  *\xbc') 

♦define  SW  (dressingCcurr.wnd] .frame  ==  1  ?  ’\xcO'  :  *\xc8’) 

♦define  SIDE  (dressingCcurr.wnd] .frame  ==  i  ?  *\xb3’  :  ’\xba') 

♦define  LIME  (dressing Ccurr.wnd] .frame  ==  1  ?  *\xc4’  :  *\xcd’) 

/*****blank  the  window  and  draw  its  frame*****/ 
void  clear .window (void) 

{ 

int  x,y; 

int  ht  =  wkw.winbottom  -  wkw.wintop  +  1; 
int  wd  ■  wkw.winright  -  wkw.winleft  +  1; 
char  line [81] ; 

clrscrO ; 

if (dressingCcurr.wnd] .shadow) 

text color (LIGHTGRAY) ; 
textbackground (BLACK) ; 

window (wkw , winlef t , wkw . wintop , wkw . winr ight+1 , 
wkw.winbottom+2) ; 
f or (y=2 ; y<ht+l ; y++) 

{ 

gotoxy(wd+l.y); 

putch(dre8sing[curr_wnd] .shadow  ==  2  ?  '  ’  : 

* (dressing Ccurr.wnd] .wsave+((wd+l)*y-l)*2)) ; 

> 

gotoxy(2,ht+l) ; 
f or (x=0 ; x<wd ; x++) 

putch(dressing[curr_wnd] .shadow  ==  2  ?  '  ’  : 

♦(dressing [curr.wnd] .wsave+(((wd+l)*ht+l)+x)*2)); 
window (wkw . winlef t , wkw . wintop , wkw . winr ight , wkw . winbottom) ; 
textattr (wkw. attribute) ; 

> 

if (dressingCcurr.wnd] .frame) 

window (wkw . winlef t , wkw . wintop , wkw . winr ight , wkw . winbottom+1 ) ; 

memset(line+i ,LIHE,wd-2) ; 

line  CO]  *  IV; 

lineCwd-1]  =  IE; 

line  Cwd]  =  ' \0 ’ ; 

cputs(line) ; 

f or (y=2 ; y<ht ; y++) 

gotoxy(l ,y) ; 
putch(SIDE) ; 
gotoxy(wd.y) ; 
putch(SIDE) ; 
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> 

line [0]  *  SV; 
line[wd-l]  =  SE; 
cputs(line) ; 

window (wkw . winlelt+1 , wkw . wintop+1 , wkw . winright-1 , wkw . winbottom-1 ) ; 
wkw.curx  =  wkw.cury  =  1; 
gotoxy(l, 1) ; 

> 

> 

/♦♦♦♦♦close  a  window*****/ 
void  close.window(void) 

{ 

int  einc  =  0; 

il (dressing [curr_wnd-l] .shadow) 
sine  *  1; 

if (curr_wnd  >  1)  { 

putt ext (wkw . winlef t , wkw . wintop , wkw . winr ight+s inc , 
wkw.winbottom+8inc,dressing[curr_wnd-l] .wsave) ; 
free(dressing[curr_wnd-l] .wsave); 
wkw  »  windows [( — curr_wnd)-l] ; 
textattr (wkw. attribute) ; 
if (dressing [curr_wnd-l] .frame) 

window  (wkw.  winlef  t+1 ,  wkw.  wintop-*- 1, 
wkw . winright-1 , wkw . winbottom-1 ) ; 
else 

window(wkw . winlef t , wkw . wintop , wkw . winr ight , wkw . winbottom) ; 
gotoxy(wkw. curx.wkw. cury) ; 

> 

> 

/♦♦♦♦♦close  all  windows  to  clear  screen*****/ 
void  close_all_windows(void) 

while (curr_wnd  >1) 
close, window () ; 

> 

/♦♦♦♦♦write  an  error  message*****/ 
void  error_message(char  *ermsg) 

post_message(ermsg,  YELLOW,  RED,  FALSE); 

> 

/*++**vrit*  a  notice*****/ 
void  notice(char  *note) 

{ 

post .message (note,  WHITE,  GREEN,  FALSE); 

> 
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/*****my  post  message  returns  without  getting  a  keyboard  input*****/ 
static  void  my_post_message(char  *s,int  for eg,  int  backg) 

{ 

int  c; 

int  11  =  (80-strlen(s)+2)/2; 
int  rt  =  lf+max(8trlen(s)+2, 15) j 
open.window ( 11 , 1 1 , rt , 14 , lor eg , backg ,1,2); 
cputs(s); 
il (backg  ==  RED) 
putch(BELL) ; 

> 

/*****my  notice  returns  without  getting  a  keyboard  input*****/ 
void  my_notice(char  *note) 

{ 

my_post_message(note,  WHITE,  GREEN); 

> 

/*****ask  a  question*****/ 
int  yesno(char  *ques) 

{ 

return  post_message(ques ,  BLACK,  WHITE,  TRUE); 

> 

/*****post  a  message*****/ 

static  int  post_message(char  *s,int  loreg,  int  backg,  int  test) 
int  c; 

int  11  =  (80-strlen(s)+2)/2; 
int  rt  =  ll+max(strlen(s)+2,15) ; 
open_window(ll , 1 1 , rt , 14 , lor eg , backg ,1,2); 
cputs(s) ; 
il (backg  ==  RED) 
putch(BELL) ; 

cputs(test  ?  "\r\n  (Y/N)  ..."  :  "\r\n  any  key  ..."); 

do 

c  =  bioskey(O)  k  255; 

}  while(test  kk  tolower(c)  !=  *y’  kk  tolower(c)  !=  ’n’); 
close_window() ; 

retum(test  kk  tolower(c)  ==  *y’); 

> 
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